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000000 
000000 



01452 





. TITLE 


TSDBU(3 




. ENABL 


LC 




. DBABL 


GBL 




. ENABL 


AMA 




. CSECT 


TSDBUG 


TSDBUG: 


. RAD50 


/DBG/ 



TSX-Plus debugging moduli? 



.: System overlay id 



This module implements the TSX-Plus program debugging facility. 



Copyright (c) 1984. 
S&H Computer Systems.' Ijir. 
Nashville* Tennessee USA 
All rights reserved. 



Ma i: r o calls 



MCALL 



TTVIN, . T7Y0UT 



Global definitions 

. GLOBL D3GENT, BRKENT, DBGBRK, DBGTRP 



Global references 



GLOBL D. BYTM, D. BKAD. D. RLBS 

GLOBL D. VAL1> D. VIFL. D. VAL2 

GLOBL D. RO, D. R:t, D. R2, D. R3> 

GLOBL D. FLAG, D*SSIP, D$DBRK 

GLOBL D. BKSV, DSDMON, D. DADR 

GLOBL D*DVAL, D*IPND, DfBKST 

GLOBL D. SPSV, D. NMBE, D, STAR 

GLOBL PUTCHR, CORUSR, OVRHC, 

GLOBL LSW9, *DBGBK, D*RUN, D. 

GLOBL D*INIT, *DEBUG, D. PCDL 

GLOBL D. PFMT, DP*I)AA. DP*LAA 



> D. SVCH, D. NMBF, D. LOC 
, D. V2FL> D. LOOM 
D. R4, D. R5, D. R6, D. R7 
, D^IBRK, D*SBRK, D. BKNM 
, D. DOLD> D. DTRG 

> D. PS, UMODE, UPMODE 
T, D. END, D*FBRK 
UPMODE, PSW, D. PCNT 
LVAL, D. MASK, D$CKBK 
, D. ILEN, D$TSTP 
, D. CBRK 



Macro definitions 



. MACRO 


OCALL E NT ADD 


CALL 


OVRHC 


. WORD 


ENTADD 


. ENDM 


OCALL 


. MACRO 


ERR FRRMSG 


MOV 


ERRMSG, Ri 


viMP 


ERRPRT 


. ENDM 


LRR 


. MACRO 


TPRINT STRING 


. IF 


NB STRING 


MOV 


STRING, RO 


. ENDC 




CALL 


DCPRT 


. ENDM 


TPRINT 



.MACRO PRINT STRING 
JSR R2, LSTTXf 
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58 




59 




60 




61 




62 




63 




64 


000002 


65 


000004 


66 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




76 




79 




BO 




81 




82 




S3 




84 




85 


000006 


86 


000036 


87 


000056 


88 


000074 


89 


000115 


90 


000151 


91 


000171 


92 


000215 


93 


000216 


94 




95 




96 




97 


000220 


98 




99 
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001 
000 



0000 IS 
0000 IL' 
000007 
000010 
000011 
000040 
000054 



000020 
000010 



111 
111 
111 
111 

ill 

1 16 
015 
000 
015 



040 



111 

111 



156 
156 
156 
156 
156 
165 
012 



101 





. A6CIZ 


" 'STRING"" 




. EVEN 






. ENDM 


PRINT 


> 

; EMT 


argument 


blocks to 


ONEMT: 


. BYTE 


1, 111 


OFFEMT: 


. BYTE 


0, 111 



Astj. i character valuef- 



CR 

1. F 

BELL 

BKSPAC 

TAB 

SPACE 

COMMA 



15 
12 
07 
10 
11 
40 
54 



i Turn on debug mode 
> Turn off debug mode 



; Carriage-return 

; i,.. :i. ne-f eed 

;Bt>ll 

j Bac k space 

; Tab 

> Spac e 

; Comma 



Assembly parameters 



TRCTRP = 
COLOPN ■" 



20 
8. 



; Trace trap flag in PSW 

i Column number where operand is to go 



Error messages 



BEX 

/Invalid RAD50 character/ 

/Invalid command/ 

/Invalid value/ 

/Invalid register/ 

/Invalid relocation register/ 

/Number too long/ 

<CR><LF:>/TSX-P1us debugger/ 



CR, 200 ; Print CR onl« 



RAD50 character table 

102 R50CHR; .ASCII / ABCDEFGHIJKLMNOPQRSTUVWXYZ*. *0123456789/ 
. EVEN 
. LIST BEX 







. NLIST 


166 


EM* IRC 


. ASCII 


166 


EM*IVC 


. ASCIZ 


166 


EM*IVL 


. ASCIZ 


166 


EM*IIV 


. ASCIZ 


166 


EM*IRB 


. ASCIZ 


155 


EM*NTL 


. ASCIZ 


124 


TM*GRT 


. ASCIZ 




CRLF: 


. BYTE 




CRCHAR 


. BYTE 
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3 






4 


000270 


057 


5 


000271 


134 


6 


000272 


100 


7 


000273 


137 


a 


000274 


04.1 


9 


000275 


133 


10 


000276 


135 


11 


000277 


102 


12 


000300 


107 


13 


000301 


1 1 5 


14 


000302 


120 


15 


000303 


122 


16 


000304 


123 


17 


000305 


130 


18 


000306 


015 


19 


000307 


OIP 


20 


000310 


136 


21 


000311 


010 


22 


000312 


Oil 


23 




000023 


24 






25 






26 






27 






28 


000314 


001650' 


29 


000316 


001726' 


30 


000320 


002134' 


31 


000322 


002230 ' 


32 


000324 


002250' 


33 


000326 


002034 ' 


34 


000330 


003672 ' 


35 


000332 


002554 ' 


36 


000334 


002656' 


37 


000336 


003424 ' 


38 


000340 


002712' 


39 


000342 


002352' 


40 


000344 


002742' 


41 


000346 


003166' 


42 


000350 


003504' 


43 


000352 


003536' 


44 


000354 


004034 ' 


45 


000356 


00402; > ' 


46 


000360 


002776 ' 



; Table 


of command charac ttTt- 




CMDTBL: 


. BYTE 


'/ 


; / 




. BYTE 


'\ 


; \ 




. BYTE 


'© 


; @ 




. BYTE 


/ 






. BYTE 


/ 1 


1 




. BYTE 


'C 


; r 




. BYTE 


'1 


, :.i 




. BYTE 


'B 


; B 




. BYTE 


'Q 


, G 




. BYTE 


'M 


. M 




. BYTE 


'P 


i P 




. BYTE 


'R 


. R 




. BYTE 


'S 


, S 




. BYTE 


'X 


, X 




. BYTE 


CR 


. Carriage-return 




. BYTE 


LF 


, Line-feed 




. BYTE 


/ .-'•. 


; Up arrow 




. BYTE 


BKSPAC 


> Backspace 




. BYTE 


TAB 


, Tab 


NUMCND 


. EVEN 


. -CMDTBL 




: Paral 


:iel ta 


ble of command processing routines 


CMDVEC: 


WORD 


CMDSLH 


/ 




. WORD 


CMDBKS 


\ 




WORD 


CMDAT 


e 




WORD 


CMDUS 






WORD 


CMDEXP 


1 




WORD 


CMDDCD 


r. 




WORD 


CMDRSB 


1 




WORD 


CMDB 


B 




WORD 


CMDG 


G 




WORD 


CMDM 


M 




WORD 


CMDP 


P 




WORD 


CMDR 


R 




WORD 


CMOS 


3 




WORD 


CMDX 


X 




WORD 


CMDCR 


Carriage-return 




WORD 


CMDLF 


Line-feed 




WORD 


CMDUP 


Up Bvrow 




WORD 


CMDBSP 


Backspace 




WORD 


CMDTAB 


Tab 
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4 


000362 


060 


5 


000363 


061 


6 


000364 


062 


7 


000365 


063 


a 


000366 


064 


9 


000367 


065 


10 


000370 


066 


11 


000371 


067 


12 


000372 


123 


13 


000373 


1 1 :.> 


14 


000374 


106 


15 


000375 


102 


16 


000376 


122 


17 




000015 


IS 






19 






20 






21 






22 


000400 


OOOOOOG 


23 


000402 


0000004! 


24 


000404 


ooooooe 


25 


000406 


0000000 


26 


000410 


0000000 


27 


000412 


0000000 


28 


000414 


0000000 


29 


000416 


0000000 


30 


000420 


OOOOOOG 


31 


000422 


0000000 


32 


000424 


0000000 


33 


000426 


0000000 


34 


000430 


0000000 


35 


000432 





; Tehle 


of internal ren 


I IMTCHH : 


. BYTE 


■0 




. BYTE 


•'1 




. BYTE 


■'2 




. BYTE 


•'3 




. BYTE 


'4 




BYTE 


■'5 




. BYTE 


'6 




. BYTE 


'7 




BYTE 


'S 




BYTE 


'M 




BYTE 


'F 




BYTE 


■'B 




BYTE 


'R 


MUM I NT 


~ 


. -INTCHR 



names 



$0 



1^3 
$4 
$5 
$6 
%7 

%n 

$F 
*B 
$R 



(SP) 

(PC) 

(PS,) 

(Mask word ) 

(Format register) 

(Breakpoint locations) 

(Relocation base addresses) 



EVEN 



Parallel table of addresr.es of internal register cells 



*0 
*1 
$2 
$3 
$4 

ip5 
$6 
$7 



INTADR: 


. WORD 


D. RO 




. WORD 


D. Rl 




. WORD 


D. R2 




. WORD 


D. R3 




. WORD 


D. R4 




. WORD 


D. R5 




. WORD 


D. R6 




. WORD 


D. R7 




. WORD 


D. PS 




. WORD 


D. MASK 




. WORD 


D. PFMf 




. WORD 


D. BKAD 




. WORD 


D. RLBS 


INTEND: 







(SP) 

iPC) 
$S (PS) 

liM (Mask word) 
*F (Format register) 
$B (Breakpoint locations) 
$R (Relocation base addresses) 
End of table of addresses 



TSDBUG - 


— TSX~P 


DBGENT - 


— Enter 


1 




2 




3 




4 




5 




6 




7 




8 


000432 


9 




10 




11 




12 


000432 


13 




14 




15 




16 


000436 


17 


000442 


18 




19 




20 




21 


000446 
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004737 004170' 



012637 OOOOOOG 
012637 OOOOOOG 



000137 001052' 



SBTTL DBGENI 



Enter debugger to start program 



DBGENT is jumped to when a program is started under the debugger. 
The follotiiing informatioii is on the stack: 

0<SP) = PC of start point. 

2(SP) = PS to start with. 

DBOEIMT: 

Initialize the debuggfrr 

CALL DBGINI i Initialize the debugger 

Set starting address and initial F'SW 



HOV (SP)+, D. R7 
MOV <SP)+, D. PS 

Enter debugger 

JMP DBGRUN 



; Set starting address 
; Set starting PSW 



; Enter debugger 
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. SBTTL DBGTRP — Entry from trap 



000452 



000452 
000454 



000456 
000462 
000466 
000472 
000476 



2 

3 

4 

5 

6 

7 

8 

9 
10 
U 
12 
13 
14 
15 
16 
17 
la 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 000502 

32 000512 

33 000516 

34 000520 

35 000554 

36 000556 

37 000612 

38 000616 

39 000622 
40 

41 
42 

43 000632 

44 000640 

45 000644 

46 000650 
47 

48 
49 
50 
51 

52 000654 

53 000660 

54 000666 

55 000672 



005704 
00 1077 



012637 
012637 
012637 
012637 
010037 



020527 
001017 

000416 

013700 
004737 



042737 
013704 
013705 
000137 



013706 
052737 
005037 
000137 



OOOOOOG 
0000000 
0000000 
OOOOOOG 
0000000 



000001 



OOOOOOG 
007146' 



DBGTRP is jumped to if a trap occurs in a program running under the 

debugger. 

On entry J the foHowinq values are set up: 

0(SP) = Saved R5 

2(SP) = Saved R4 

4(SP) -- Trap PC 

6<SP) = Trap PS 

R5 = Trap code (l-->Trap 4, 2==>Trap 10) 

R4 = Non-zero =-=> Trap within debugger 

DBGTRP: 

See if the trap occurred in the debugger or in the user's program 



TST 
BNE 



R4 
10* 



j Trap in debugger or user's program? 
.: Br if trap occurred in the debugger 



Trap occurred in the user's program. 
Save entry information. 



MOV 
MOV 
MOV 
MOV 
MOV 



(SP)+, D. R5 
<SP)+> D. R4 
(SP)+, D. R7 
(SP)+, D. PS 
RO; D. RO 



; Trap PC 
; Trap PSW 



> Go to a new 1 ine 
; Trap to 4 or 107' 
; Br if trap to 10 



1$: 
2*: 

4*: 



F'rint trap entry mesStUiF 

TPRINT #CRLF 

CMP R5, #1 

BNE 1* 

PRINT <Trap to 4 et location > 

BR 2* 

PR.INT <Trap to 10 at location > 

MOV D. R7j RO i Get address where trap occurred 

CALL LSTADR > Display the address 

TPRINT #CRLF i Go to new line 



OOOOOOC OOOOOOG 
OOOOOOG 
OOOOOOG 
001052' 



Enter the debugger 

BIC #<D$DBRK!D*2BRK!D*SBRK>, D. FLAG ; Say no breakpoint occurred 

MOV D. R4, R4 i Restore R4 and R5 

MOV D. R5, R5 

JMP DBGRUN i Enter the debugger 

A trap occurred within the debugger. 

Restore context to condition at the time of the trap and then 

reenter the debugger. 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
001506' 



10*: 



MOV 
BIS 
CLR 
JMP 



D. SPSV, SP 
#UPMODE, ©#PSW 
D. LOC 
NEWCMD 



/Restore the stack pointer 
iMake sure previous mode = user 
.; No currently open cell 
{Reenter the debugger 



TSDBUG - 
DBGBRK " 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 
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000676 



000676 
000700 
000704 
000712 

O.'-*. *-\ "T /^ .'■> 



000722 
000730 
000732 



000736 
000744 



010146 
113701 
042761 
052761 



032737 
00 1 002 
004737 



052737 
000137 



EjBTTL DBGBRK - — Finter debugger by typing ctrl-D 



0000000 
0000000 
0000000 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 

004 1 70 ' 



DBGBRK is entered when thp user requests entry to the debugger by typing 

Ctrl -D. 

On entry^ the stack is Bet up as follows: 
0(SP) = PC of next instruction. 
2(SP) = PS of next instruction. 

DBGBRK: 

Reset job control flag that was used to force the breakpoint 

MOV R 1 , - ( b-P ) 

MOVB C0RUSR,R1 ; Get job index number 

B.IC #*DBGBK, LSW9<R1 )i Clear flag saying to force debugger break 

BIS #*DEBUG* LSW9<R1 )i Say program is now running with debugger 

MOV (SP)-+-, Rl 

If we have not initialized the debugger, do the debugger startup 

BIT #D*INIT, D. FLAG i Has initialization been done? 

BME 1* ;Br if yes 

CALL DBGINI } Initialize the debugger 



Enter debugger as if we hit a breakpoint 



OOOOOOG 
000750' 



OOOOOOG 1*: 



BIS 
JMP 



#D*FBRK, D. Flag i Set flag saying we had a forced break 

BRKEN1 ; Now enter debugger as if uie had a breakpoint 
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1 
2 
3 
4 
5 
6 
7 

e 000750 
000754 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000760 
000764 
000772 



000774 
001002 
001010 
001012 
001016 
001024 
001026 
001034 
001040 



001042 
001046 



001052 
001060 
001064 
001070 
001074 
001100 
001104 
001106 



01 1637 
010037 



004737 
032737 
001023 



042737 
032737 
00 1 006 
004737 
042766 
000403 
052766 
013700 
000006 



012637 
012637 



052737 
010137 
010237 
010337 
010437 
010537 
106506 
012637 



001112 010637 



. SBTTL BRKENT 



Eiiit(?r debugger from breakpoint 



.: BRKf-NT is jumped to ujht?n a breakpoint trap occurs. 

i The following information is on the stack: 
i 0<SP) " PC of breakpoint trap. 

> 2(SP} = PS of breakpoint trr3p. 



0000000 
OOOOOOG 



004420 ' 
OOOOOOC 



BRKENT: MOV 
MOV 



(SP), D. R7 
RO, D. RO 



; Save breakpoint PC 
i Save user 's RO 



OOOOOOG 



Determine if we should enter the debugger 

CALL BRKCHK i See if breakpoint causes program stop 

BIT #<D*DBRK.'D*lBRK!D*SBRKiD*FBRK>, D. FLAG iBreakpoint? 
BNE 5* ; Br if this break will enter debugger 

ThiG breakpoint u)ili not enter the debugger. 

If we just executed an instruction that was under a breakpoint. 

set breakpoints and then continue program execution. 



OOOOOOG 
OOOOOOC 

004340 ' 
000020 

000020 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000002 
000002 



3$: 

2$: 



BIC 

BIT 

BNE 

CALL 

BIC 

BR 

BIS 

MOV 

RTT 



#D$IPND. D. FLAG j Say pending instruction has been executed 
#<D*DMON!D*SSTP!D«TSTP>, D. FLAG i Are we single stepping 



3* 

BRKSET 

#TRCTRP.. 2<SP) 

2* 

#TRCTRP, 2(GP) 

D. RO, RO 



i Br if yes 

i Set breakpoints 

; Reset trace trap flag in PSW 

; Set trap flag in PSW on stack 

i Recover RO 

J Return from breakpoint 



This breakpoint will enter the debugger. 
Save information and enter the debugger 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



5$: 



MOV (SP)+, D. R7 
MOV <SP)+, D. PS 

Save user's registers 



OOOOOOG 



DBGRUN: BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MFPD 
MOV 



#D$RUN, D. FLAG 

Rl, D. Ri 

R2, D. R2 

R3, D. R3 

R4, D. R4 

R5, D. R5 

SP 

(SP)+, D. R6 



J Save trap PC 
> Save trap PS 



; Set flag saying debugger is running 



Save initial stack pointer in case we need to restore it if an 
error occurs. 



OOOOOOG 



MOV 



SP, D. SPSV 



J Save initial stack pointer 



Clear the trace-trap flag in the user's TRAP instruction PSW. 

We may have set the trace-trap flag in this PSW if we were single 

stepping the program. 



001116 106537 000036 



MFPD 



@#36 



; Get user's TRAP PSW 



c 
c 
i 
i 
i 
i 
i 
i 
i 

i 

I 
i 
c 

€ 
i 

i 
i 
i 
« 
4 
( 



f 



TSDBUG • 
BRKENT ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7i 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
S2 
83 
84 
SiJ 
86 
87 
88 
89 
90 
91 
92 
93 



— TSX-P 
— ■ Enter 

001122 
00 1126 
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042716 000020 
106637 000036 



001 
001 
001 
001 
001 
001 
001 
001 



132 
140 
146 
150 
154 
162 
164 
172 



001200 
001204 
001206 
001214 
001216 



ooi; 



001236 
001242 



BIG #TRCTRP. <SP) 
MTPD @#36 



J Clear the trace-trap flag 
.; Store new TRAP PSW 



042737 OOOOOOG OOOOOOG 

032737 OOOOOOC OOOOOOG 

001014 

004737 004244 •■ 

032737 OOOOOOG OOOOOOG 

001406 

162737 000002 OOOOOOG 

052737 OOOOOOG OOOOOOG 



005737 OOOOOOG 

001407 

032737 

00 1 003 

005337 OOOOOOG 

001011 



If breakpoints are set in program, restore the real instructions 
that belong in the breakpoint locations. 

BIG #D*IPND/ D. FLAG ; Clear instruction-pending flag 

BIT #<D$DnON!D*SSTP!D*TSTP>, D. FLAG ; Are we single stepping? 

BWE 2* i Br if yes 

CALL BRKRST ; Replace breakpoint instructions 

BIT #D*IBRK, D. FLAG .:Did an instruction breakpoint occur? 

BEQ 2* >Bt if not 

SUB #2, D. R7 ; Backup PC to point to BPT instruction 

BIS #D$IPND, D. FLAG ; Remember instruction must be executed 

See if a proceed repeat count is in effect 



2*: TST D. PCNT 

BEQ 3* 

BIT #D$FBRK, D. FLAG 

BME 3$ 

DEC D. PCNT 

BNE EXITl 



i Is a proceed repeat count in effect? 
Br if not 

Is this a forced breakpoint? 
Br if yes — always stop 
Should we skip this breakpoint? 
Br if yes 



Clear temporary single-step flag 
042737 OOOOOOG OOOOOOG 3*: BIC #D*TSTP, D. FLAG ;Clear temporary single-step flag 

Put terminal control in debug mode 

CALL DBGON j Put terminal in debug mode 

Display information about the breakpoint 



004737 007464 ' 



004737 004632 ' 
000137 001506' 



CALL 
JMP 



SHOBRK 
WEWCMD 



•Display breakpoint information 
i Enter the debugger 



TSDBUG 
EXIT 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

?5 



"Di^i 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001246 
001254 
001262 
001264 
001272 
001276 
001304 
001310 
001316 
001320 
001324 



001326 
001332 
001336 



001342 
001350 
001352 
001356 
001360 
001364 
001366 
001370 



001374 
001400 
001402 
001406 
001412 
001416 
001422 



001432 
001440 
001446 
001450 

001456 



042737 
032737 
001403 
042737 
005037 
042737 
004737 
032737 
00 1 003 
004737 
000406 



106537 
052716 
106637 



032737 
00 1411 
013705 
106515 
013704 
005104 
040405 
012637 



013746 
106606 
013705 
1 3704 
013703 
013702 
013701 



SBTTL EXIT 



— Ir X i t from debugger to user 



Exit from debugger to uBf?r 



program. 



0000000 0000000 EXITl 
OOOOOOC OOOOOOG 



0000000 
OOOOOOG 
0000000 
007474 •' 
OOOOOOC 

004340 ' 



OOOOOOG 



OOOOOOG 



OOOOOOG 



3*: 



BIC 

BIT 

BEG 

BIC 

CLR 

BIC 

CALL 

BIT 

BNE 

CALL 

BR 



#D*FBRK, D. FLAG ; Turn off forced-breakpoint flag 
#<D*SSTP!D*TSTP!D*DM0N:>, D. FLAG ; Are we single stepping? 

Br if not 

Turn of instruction-pending if single step 

Say no location is open 

Say debugger is no longer running 

Turn off terminal debug mode 
#<D*IPNDlD*DMONfD*SSTP!D$TSTP>, D. FLAG iShould me single step? 
4* ; Br if yes 

BRKSET J Set breakpoints 

1* 



3* 

#D*IPND> D. FLAG 

D. LOC 

#D*RUN, D. F"LAG 

DBGOFF 



We are single stepping the program. 

Set the trace-trap flag in the user's TRAP instruction PSW so we 

will continue to have program control during processing of TRAP 

ins true tions. 



000036 
000020 
000036 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4f: MFPD ©#36 

BIS #TRCTRP> (SP) 
@#36 



Get user's TRAP PSW 

Set the trace-trap flag in the PSW 

Store new TRAP PSW 



MTPD 

If we are doing data monitoring* save current value of monitored cell 

1*: BIT #D*DMON> D. FLAG i Are we doing data cell monitoring? 

Br if not 

Get address of cell being monitored 
Get current value from cell 
Get current data mask 
Complement 

Clear all but bits of interest 
Save old value 



BIT 


#D*DMON, D. FLAG 


BEQ 


2* 


MOV 


D. DADR, R5 


MFPD 


(R5) 


MOV 


D. MASK. R4 


COM 


R4 


BIC 


R4, R5 


MOV 


<SP)+, D. DDLD 



Restore user's registert. 



2$: 



MOV 


D. R6,~<SP) 


MTPD 


SP 


MOV 


D. R5, R5 


MOV 


D. R4,R4 


MOV 


D. R3, R3 


MOV 


D. R2, R2 


MOV 


D. Rl, Rl 



4 
€ 



001426 013700 OOOOOOG 



042737 
032737 
001403 
052737 
052737 



000020 OOOOOOG 
OOOOOOC OOOOOOG 

000020 OOOOOOG 
OOOOOOC OOOOOOG 



Exit point used if we did not enter debugger 

EXIT2: MOV D. RO, RO 

See if we need to set Trap flag in PS 

BIC #TRCTRP*D. PS j Reset trace trap flag in PS 

BIT #<D$IPND!D*DMON!D*SSTP !D*TSTP>, D. FLAG i Do we want single step? 

BEQ 1* ;Br if not 



1*: 



BIS #TRCTRP.D. PS ; Set Trap flag in user's PS 

BIS #UMODE!UPMODE.. D. PS ;Make sure user-mode is set in PS 
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58 
59 
60 

61 001464 013746 OOOOOOG 

62 001470 013746 OOOOOOG 

63 001474 000006 



Use RTT instruction to reenter user's program 



MOV 
MOV 
RTT 



D. PS, -(SP) 
D. R7, -(SP) 



Set PS for user 
Set PC for user 
Enter user's program 



^ 

1 



TSDBUG - 
NEWCMD - 

1 
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3 








4 








5 


001476 






6 








7 








8 








9 


001506 






10 








11 








12 








13 


001520 


10 5037 


OOOOOOG 


14 


001524 


005037 


OOOOOOG 


15 


001530 


105037 


OOOOOOG 


16 


001534 


005037 


OOOOOOG 


17 








IS 








19 








20 


001540 


004737 


005252' 


21 


001544 


010037 


OOOOOOG 


22 


001550 


110137 


OOOOOOG 


23 








24 








25 








26 


001554 


004737 


005720' 


27 


001560 


120027 


000073 


28 


001564 


001403 




29 


001566 


004737 


005764 ' 


30 


001572 


000406 




31 


001574 


004737 


005252' 


32 


001600 


010037 


OOOOOOG 


33 


001604 


110137 


OOOOOOG 


34 








35 








36 








37 


001610 


004737 


005720 ' 


38 


001614 


012701 


000023 


39 


001620 


120061 


000270 ' 


40 


001624 


001406 




41 


001626 


005301 




42 


001630 


002373 




43 


001632 






44 








45 








46 








47 








48 


001642 


006301 




49 


001644 


000171 


000314' 



. SBTTL NEWCMD — Gtt new command 
Print carriage-return, line-feed and get new command 
NEWLIN: TPRINT #CRLF 

Get new command 
NEWCMD: PRINT <DBG: > 

Assume neither valuel nor value2 is specified 

jValuel not specified 



GETCMD: CLRB 
CLR 
CLRB 
CLR 



D. VIFL 
D. VALl 
D. V2FL 
D. VAL2 



See if Valuel is specifit^d 



MOV 
MOVB 



ACRVAL 
RO, D. VALl 
Rl, D. VIFL 



See if value2 is specified 



CALL 


GETCHR 


CMPB 


RO, #'; 


BEO 


1* 


CALL 


PSHCHR 


BR 


2* 


CALL 


ACRVAL 


MOV 


RO, D. VAL2 


MOVB 


R1,D. V2FL 



Look up command character 



2*: 
3«: 



CALL 


GEfCHR 


MOV 


#NUMCMD, Rl 


CMPB 


RO, CMDTBL<RJ ) 


BEO 


4* 


DEC 


Rl 


BGE 


3* 


ERR 


#EM$IVC 



iValue2 not specified 



; Try to accrue valuel 
i Save value for valuel 
jRemember if valuel specified 



; Get del imi ter 

; is there a value2? 

;Br if possibly yes 

; Save command character 

; Get value2 

i Save value2 

; Save info about value2 



Get command character 

Get # valid command characters 

Search for character in table 

Br if found command character 

More command chars to check? 

Loop if yes 

Invalid command character 



Found command character. 

Jump off to processing rcM..itine. 



4$: 



ASL 
JMP 



Rl 
@CMDVEC<R1) 



; Convert command index into word table index 
j Jump to processing routine 



1 



TSDBUG — TSX-Plus debugging mo MACRO V05. 04 
— Command processing routines — 

1 

o 
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. SBTTL — Command processing routines — 
. SBTTL "/" — Extimir.G word 



i 
f 



3 
4 
5 

6 00 

7 00 

8 00 

9 00 

10 00 

11 00 

12 00 

13 00 

14 00 

15 00 
16 

17 
IS 
19 



20 
21 
22 
23 
24 
25 
26 



1650 
1654 
1662 
1664 
1670 
1676 
1702 
1706 
1712 
1722 



00 
00 
00 
00 
00 
00 

27 00 

28 00 

29 00 

30 00 

31 00 

32 00 

33 00 

34 00 

35 00 



1726 
1732 
1740 
1746 
1752 
1756 
1760 
1764 
1774 
2000 
2002 
2006 
^014 
=>020 



004737 
032737 
001021 
105037 
012737 
004737 
010037 
004737 



004737 
i. 1 2737 
1 1 2737 
004737 
010037 
010002 
004737 



103002 
1 1 2702 

005237 

000137 



006370 ' 
000001 

OOOOOOG 

000002 

006614' 

OOOOOOG 

006100' 



000137 001520 



006370 ' 

000001 

000001 

006614' 

OOOOOOG 

006154' 

000040 

000056 

OOOOOOG 

001520' 



"address/" 



Examine contents of word 



OOOOOOG 



OOOOOOG 



CMDSLH: 
CMDSLl: 



CALL 

BIT 

BNE 

CLRB 

MOV 

MOV 
CALL 
PRINT 
JMP 



SETLOC 
#1, D. LOC 
CMDBKS 
D. BYTM 
#2, D. ILEN 
GETVAL 
RO. D. LVAL 
PRTWRD 
< > 
GETCMD 



Set valuel as current location 

Is location odd? 

If yes then treat "/" like 

Say we are in word mode 

Say instruction length = 2 

Get contents of location 

Save last value displayed 

Print the value 

Print two spaces 

Go get next command 



II \ H 

bytes 



•SBTTL "\" — Examine byte 
"addressN" — Examine contents of a byte 



OOOOOOG 
OOOOOOG 



CMDBKS: 
CMDBKl: 



1$: 



CALL 

MOVB 

MOVB 

CALL 

MOV 

MOV 

CALL 

PRINT 

CMPB 

BHIS 

MOVB 

. TTYOUT 

INC 

PRINT 

JMP 



SETLOC 
#1, D. BYTM 
#1, D. ILEN 
GETVAL 
RO. D. LVAL 
RO, R2 
PRTBYT 

R2. #40 

1* 

#'. ,R2 

R2 

D. PCOL 

< > 

GETCMD 



Set valuel as current location 

Say we are operating in byte mode 

Say instruction length = 1 byte 

Get contents of location 

Save last value displayed 

Save value 

Print value 

Put in equal sign 

Is this a printing character? 

Br if yes 

Use period for non-printing chars 

Print character 

Advance print column 

Print 2 spaces 

Go get next command 



TSDBUG - 


— T3X- 


11 r 11 


Decode 


1 




2 




3 




4 




5 


002034 


6 




7 




8 




9 


002034 


10 


002040 


11 


002042 


12 


002046 


13 


002052 


14 


002054 


15 


002060 


16 


002064 


17 


002066 


IS 


002072 


19 


002076 


20 


002100 


21 




22 




23 




24 


002104 


25 




26 




27 




20 


002110 


29 


002114 


30 


002120 


31 


002124 


32 




33 




34 




35 


002130 
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105737 0000000 

00140r* 

004737 006370 ' 

013701 OOOOOOG 

001002 

000137 001476' 

032701 000001 

001402 

000137 001726' 

105737 OOOOOOG 

00200;' 

000137 001654' 



004-; 



007510' 



013700 OOOOOOG 

062700 000010 

042700 000007 

004737 011734' 



000137 001520' 



. SBTTL " E " — Decode value as an instruction 
Open a cell and di&play its contents as an instruction. 
CMDDCD: 

See if an address was specified 

Was an address specified? 

Br if not 

Set address of currently open cell 

Is a cell currently openT-* 

Br if yes 

Nothing to decode 
2$: BIT #1,R1 >Is the address odd? 

Br if not 

Treat like "\" if odd 
3$: TSTB D. LOOM ;Is cell internal or external? 

Br if external 

Treat C like / for internal cell 



TSTB 


D. VIFL 


BEQ 


1* 


CALL 


SETLOC 


MOV 


D. LOC, Rl 


ONE 


2* 


JMP 


NEWLIN 


BIT 


#1, Rl 


BEQ 


3* 


JMP 


CMDBKS 


TSTB 


D. LOCM 


BGE 


4* 


JMP 


CMDSLl 



Decode the instruction 
4$: CALL DECODE 
Tah over some 



i Decode the instruction 



MOV 


D. PCOL, 


RO 


i Get 


curr 


ADD 


#8. , RO 




; Tab 


over 


BIC 


#7, RO 








CALL 


ODCTAB 




i Tab 


over 


Finished 










JMP 


GETCMD 
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4 
5 
6 
7 
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SDTTL 



'©' 



— Up en indirect 



Open the cell whose address is contained in the cell pointed to 
by D. LOC. 



002134 
002140 

8 002144 

9 002152 
10 

11 
12 

13 002162 

14 002166 
15 

16 
17 

18 002170 

19 002174 

20 002204 
21 



25 002214 

26 

27 

28 

29 

30 

31 

32 

33 002234 

34 002240 

35 002244 



013702 0000000 
010237 0000000 
112737 000001 



CMDAT: MOV D. LVAL, R2 

CMDATl: MOV R2, D. LOC 

0000000 MOVB #1,D. LOOM 

TPRINT #CRLF 



032702 000001 
001010 



004737 006750 ' 

000137 001654' 

004737 006750 ' 

000137 001732' 



013702 0000000 

063702 0000000 

062702 000002 

000137 002140' 



j Oet last displayed value 

; Set as new location to display 

j Say new address is in user's program 

i Go to a new 1 ine 



See if we should do the display in byte or word mode 



BIT 
BNE 



#1, R2 
1* 



; Should we display in byte or word mode? 
i Br if need to go to byte mode 



Display new location in word mode 



CALL 


SHOLOC 


PRINT 


< / > 


^JMP 


CMDSLl 



Display in byte mode 



1*: 



CALL 


SHOLOC 


PRINT 


< \ > 


JMP 


CMDBKl 



SBTTL 



j Display the current address 

^Display "/" 

jSimulate the "/" command 



; Display the current address 

jDisplay "\" 

; Simulate the "\" command 

Open ceil indirect, relative to PC 



■-• Open indirect relative to PC. 



CMDUS: 


MOV 


D. LVAL, R2 




ADD 


D. LOC, R2 




ADD 


#2, R2 




JMP 


CMDATl 



Get last displayed value 
Add PC of instruction 
Plus 2 
Now treat like "@" command 



i 
f 
f 
t 
< 
I 
I 

i 
i 
€ 
€ 

i 

€ 
i 

i 
i 
i 
i 
i 
i 
i 
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3 








4 








5 


002250 






6 








7 








8 








9 








10 


002250 


013701 


OOOOOOG 


11 


002254 


105737 


OOOOOOG 


12 


002260 


003422 




13 








14 








15 








16 








17 


002262 






IS 


002272 


010100 




19 


002274 


004737 


005772 ' 


20 


002300 






21 


002306 


006301 




22 


002310 


013700 


OOOOOOG 


23 


002314 


166100 


OOOOOOG 


24 


002320 


004737 


005772 ' 


25 


002324 


000404 




26 








27 








28 








29 


002326 


013700 


QQQQQQ(i 


30 


002332 


004737 


007172' 


31 


002336 






32 








33 








34 








35 


002346 


000137 


001520' 



110V 


D. VALl, Rl 


TSTB 


D. VIFL 


BLE 


2* 
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offset 

. SBTTL "!" — Convert address to relocation offset 

'n ! " — Convert current address to relocation offset 

CMDEXP: 

If no relocation register number was provided* find closest relocation 

b a & {■;■ . 

; Get relocation register # 

; Was a relocation register specified? 

j Br if not 

A relocation register number was provided. 

Display the relocation register number and the offset. 

Print "=" 

Get the relocation register number 

Print the relocation reg # 

Print ", " 

Convert relocation # to word table index 

Get original value 

Subtract relocation base 

Print the offset 



No relocation register number was specified 



PRINT 


< = > 


HOV 


Rl; RO 


CALL 


PRTOCT 


PRINT 


<, > 


ASL 


Rl 


MOV 


D. LOC, RO 


SUB 


D. RLBSCRD.RO 


CALL 


PRTOCT 


BR 


8* 



2*: MOV 


D. LOC. RO 


CALL 


SHOADR 


8*: PRINT 


< > 


> F i ri i s h e d 




9*: JMP 


GETCMD 



i Get address 

^Display it with best relocation base 

iPrint 2 spaces 



i Go get the next command 



TSDBUG — TSX-Plus debuciging mo MACRO V05. 04 
"R" — Set relocation base regxBter 



Monday 2i-Dec-87 08: 4I> Page 14 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 



002352 



002352 

002356 



002360 
002364 
002370 
002372 
002402 
002404 
002412 



002530 
002534 

002540 



105737 
001417 



020127 
101404 

006301 
013761 
000137 



002416 

002426 
002432 
002434 
002440 
002444 
002446 
002456 
002460 
002464 
002470 
002472 
002474 
002476 
002502 
002510 
002512 
002516 
002526 000410 



10 5737 
00 1 436 
013701 
020127 
10140-'l 

006301 
013700 
166100 
010002 
01 01 00 
006200 
004737 

010200 
004737 



013700 

004737 



ooooooe 



0000000 
000007 



0000000 
001476' 



0000000 

0000000 
000007 



0000000 
OOOOOOG 



005772 



005772' 



OOOOOOG 
007172' 



. SBTTL "R" — Set relocation base register 

"address; nR" — Set relocation base register 

CMDR : 

If no value utas specified for argument 2, then we are being 
asked to calculate the difference between the currently displayed 
value and the base of the relocation area. 

If argument 2 was specified* then we are setting the base of a 
relocation area. 



TSTB 
BEQ 



D. V2FL 
2* 



; Was argument 2 specified?' 
; Br if not 



Set base address for relocation area 



; Get register number 
i Should not exceed 7 
> Br if ok 



1«: 



OOOOOOG 



3$: 



MOV D. VAL2, Rl 

CMP Rl,#7 

BLOS 1« 

ERR #EM$IVL 

ASL Rl ; Convert to word table index 

MOV D. VAL1> D. RLBS<R1 )i Set address for relocation base 

JMP NEWLIN i Go get next command 

Calculate offset relative to relocation base 



; Print "=" 

j Was a relocation reg # provided? 

.; Br if not 

i Get register number 

iShould not exceed 7 

; Br if ok 

Convert to word table index 

Get currently open value 

Calculate offset 

Hold the offset value 

Get offset region # 

Convert to ordinal number 

Print relocation # 

Print comma 

Get offset value 

Print it 

Print a space 



PRINT 


< = > 


TSTB 


D. VIFL 


BEQ 


4* 


MOV 


D. VALl.Rl 


CMP 


R 1 , #7 


BLOS 


3* 


ERR 


#EM*IVL 


ASL 


Rl 


MOV 


D. LVAL. RO 


SUB 


D. RLBS<R1),R0 


MOV 


RO, R2 


MOV 


R1,R0 


ASR 


RO 


CALL 


PRTOCT 


PRINT 


<:, > 


MOV 


R2, RO 


CALL 


PRTOCT 


PRINT 


< > 


BR 


9f 



No relocation register number was provided 
Show address with best relocation 



002550 000 1 37 00 1 520 ' 



4«: MOV 


D. LVAL, RO 


CALL 


SHOADR 


PRINT 


<■ > 


} F i n i & h e d 




9$: JMP 


OETCMD 



J Get value of interest 
^Display the address 
J Print 2 spaces 



; Go aet next command 
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1 



3 
4 








5 


002554 


.1.0 5737 


0000000 


6 


002560 


001412 




7 


002562 


013702 


0000000 


e 


002566 


006302 




9 


002570 


020227 


000016 


10 


002574 


101416 




11 


002576 






12 


002606 


005002 




13 


002610 


005762 


OOOOOOG 


14 


002614 


00 1 406 




15 


002616 


062702 


000002 


16 


002622 


020227 


000016 


17 


002626 


101770 




18 


002630 


005002 




19 


002632 


013701 


OOOOOOG 


20 


002636 


004737 


007504 ' 


21 


002642 


010162 


0000000 


22 








23 








24 








25 


002646 


004737 


005206 ' 


26 


002652 


000137 


001476' 



. SBTTL "B" — Bt?t bieak point 

"sddTBES.: nB" — Set b-r-eai! point 

CMDB; TSTB D. V2FL ; Wa 5 a breakpoint number specified? 

Br if not 

Get breakpoint number 
Convert to word table index 
Make sure it's not too big 
Br if ok 

1*: CLR R2 .; Search for a free breakpoint entry 

4$: TST D. BKAD<R2) ;l5 this breakpoint free? 

Br if yes 

Point to next breakpoint entry 
Have we checked all breakpoint entries? 
Br if more to check 
If all busy* then use # 
Get address of breakpoint 
Make sure its ok 
Save address of breakpoint 

Set D*CKBK flag in D. FLAGS if there are any active breakpoints 



i 



3*: 



TSTB 


D. V2FL 




BEQ 


1* 




MOV 


D. VAL2, R2 




ASL 


R2 




CMP 


R2, #14. 




BLOS 


3* 




ERR 


#EM*IVL 




CLR 


R2 




TST 


D. BKAD<R2) 




BEQ 


3* 




ADD 


#2, R2 




CMP 


R2, #14. 




BLDS 


4* 




CLR 


R2 




MOV 


D. VALi,Ri 




CALL 


CHKADR 




MOV 


R1,D. BKAD<R2) 





9*: 



CALL 
JMP 



FLGBRK 
NEWLIN 



; Set flag if any breakpoints are active 
j Go get next command 
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"Q" — Start prugr.ar>\ r-riecution 

1 . SBTTL "G" - — Start program execution 



o 



3 J "adctressi G" — Start proqram execution. 

4 i 

5 002656 105737 0000000 CMDG: TSTB D. VIFL ; Was a starting address specified? 

6 002662 003403 BLE .1* jBr if not 

7 002664 013737 OOOOOOG OOOOOOG MOV D. VAL1,D. R7 i Set starting address 

8 002672 1*: TPRINT #CRLF i Go to neiu line 

9 002702 005037 OOOOOOG CLR D. PCNT ; Clear any proceed count 
10 002706 000137 001246' JMP EXITl ; Start running program 
11 

12 .SBTTL "P" — Proceed from breakpoint 



13 i _. 

14 ; "n.i P" — Proceed from brt'akpoint 

15 ; 

16 002712 10 5737 OOOOOOG CMDP: TSTB D, VIFL 

17 002716 003403 BLE 1* 
IS 002720 013737 OOOOOOG OOOOOOG MOV D. VALl , D. PCMT 

19 002726 1*: TPRINT #CRLF 

20 002736 000137 001246' JMP E.XIT1 
21 



Was a proceed repeat count specified? 

Br if not 

Set proceed repeat count 

Go to new line 

Enter user's program 



.SBTTL "S" — Bet/Reset single-step mode 



23 ; 

24 i "; nS" -- Set or reset sinqle-step mode 

25 ; 

26 002742 042737 OOOOOOG OOOOOOG CMDS: BIG #D*SSTP, D. FLAG ; Assume he wants to reset single-step mode 

27 002750 105737 OOOOOOG TSTB D. V2FL ; Was a value specified for "n"? 

28 002754 001406 BEQ 1* ; Br if not 

29 002756 005737 OOOOOOG TST D. VAL2 ;Is value 2 non-zero? 

30 002762 001403 BEQ 1* ;If zero, don't single step 

31 002764 052737 OOOOOOG OOOOOOG BIS #D*SSTP> D. FL AG ; Set single-step mode 

32 002772 000137 001476' 1*: JMP NEWLIN i Go get next command 



TSDBUG 
"TAB"— 



— TSX' 

Sinai* 



■P 1 u 5 deb u q g i n g mo 
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3 






4 






5 






6 






7 






8 






9 002776 






10 






11 






12 






13 002776 


105737 


0000000 


14 003002 


00 1 407 




15 003004 


105037 


0000000 


16 






17 






IS 






19 






20 






21 003010 


013700 


0000000 


22 003014 


00 1 407 




23 






24 






2S 






26 003016 


010037 


OOOOOOG 


27 






2S 






29 






30 003022 


052737 


0000000 


31 003030 


000137 


002712' 


32 






33 






34 






35 






36 






37 003034 


013701 


OOOOOOG 


38 003040 


106521 




39 003042 


012602 




40 003044 


010200 




41 003046 


042 700 


000777 


42 003052 


020027 


004000 


43 003056 


001361 




44 






45 






46 






47 






48 003060 


010200 




49 003062 


042700 


177770 


50 003066 


020027 


000007 


51 003072 


001003 




52 003074 


062701 


000002 


53 003100 


000410 




54 003102 


010200 




55 003104 


042700 


177707 


56 003110 


072027 


177775 


57 003114 


1 1 6000 


003156' 



SBTTL. "TAB' 



Sincjle step the program 



The TAB command causer, uj> to go into temporary single step mode 

and to execute the next instruction. 

If "valueTAB is specified, we use the value as the address of 

the next instruction to exf?cute. 

If "OTAB" is specified* wt? step over a subprogram call. 



CMDTAB : 



See if a value mas specified with TAB 



TSTE 

BEO 

CLRB 



D. VIFL 

2* 

D. VIFL 



; Was value 1 specified? 

;Br if not 

;Clear value-1 flag so it won't confuse iP 



A value was specified with TAB. 

If was specified* skip over a subprogram call. 

If a non-zero value was specified* use this as a starting address. 



lli: 



MOV 



D. VALl, RO 
5* 



;Get specified value 

iO ==:=> Skip over subprogram call 



3*: 



A starting address was specified. 

MOV RO* D. R7 /Set starting address 

Single step the program. 

BIS #D$TSTP* D. FLAG * Say we are in temporary single step mode 
JMP CMDP * Now treat tab like *P 

Argument value 1 is (zero). 

Step over a subprogram cell. 

Make sure the current inj>truction is a CALL. 

Get address of current instruction 

Get instruction from user's program 

Get the instruction from the stack 

Copy the instruction word 

Clear register # and address field 

Is this a JSR instruction? 

If not* ignore the number in front of TAB 

Determine address of instruction beyond CALL and set it as a location 
where a temporary breakpoint is to be set. 

* Get the instruction 

*Clear all but addressing register # 

; Is it using register 7 <PC)? 

; Br if not 

*2 bytes for subroutine address if PC used 

Get back the instruction 

Clear all but addressing mode 

Right justify the addressing mode 

Get # bytes used by this addressing mode 



MOV 


D. R7*R1 


MFPD 


(Rl) + 


MOV 


(SP)+*R2 


MOV 


R2* RO 


BIC 


#777* RO 


CMP 


RO* #0004000 


BNE 


2* 



MOV 


R2*R0 


BIC 


#-C7, RO 


CMP 


R0*#7 


BNE 


3$ 


ADD 


#2* R 1 


BR 


4* 


MOV 


R2* RO 


BIC 


#-C70, RO 


ASH 


#-3* RO 


MOVE 


INSLEW<RO)*RO 



TSDBUG ■ 
"lAB" — 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



71 
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Single step the program 



003120 060001 

003122 010137 OOOOOOG 4*: 

003126 052737 OOOOOOG OOOOOOG 



ADD 
MOV 



RO, Rl 

Rl, D. CBRK 

#D$CKBK, D. FLAG 



Get address of location uihere breakpoint goes 

Set address of call break point 

Set flag saying there are some breakpoints 



003134 042737 OOOOOOG OOOOOOG 

003142 

003152 000137 001246' 



003156 
003161 
003164 



000 
000 
002 



000 
000 
002 



Reset single-step mode and continue with execution of the program 

BIC #D$SSTP. D. FLAG ; Reset single step mode 
TPRIIMT #CRLF ; Go to a new line 

JMP EXITl j Enter user's program 

Table providing number of bytes used by each addressing mode 

0. 0. 0, 0> 0. 0> 2, 2 



000 INSLEW: . BYTE 
000 

, EVEN 



TSDBUG — TSX-Plus debutiging 
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mo 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



003166 
003176 
003202 
003206 
003216 



003230 
003234 
003240 
003242 
003246 



003250 
003252 
003256 
003262 
003266 
003270 
003274 



'a 



003c 

003302 

003304 

003306 

003312 

003314 

003324 

003330 

003334 

003336 

003340 

003344 

003350 

003352 

003356 



003360 
003364 
003366 



003372 
003376 
003402 
003406 



013700 
004737 



004737 
004737 
120027 
001454 
120027 
001451 



005001 
012702 
004737 
120027 
001434 
120027 
001431 
01-2703 
120023 
001407 
020327 
103773 



070127 
060301 
077231 
004737 
120027 
00 1 403 



OOOOOOG 
006232 ' 



012737 000002 



005720 ' 
005764 ' 
000015 

000012 



000003 
005720 ' 
000015 

000012 

000220 ' 

000270 ' 



000221 
000050 



005720' 
000015 



120027 000012 

001370 



004737 
010100 
004737 



005037 
004737 
120027 
00 1 004 



005764 ' 
006412' 



0000000 
005720 ' 
000012 



" X " 
CMDX: 



SBTTL "X" — Display RAD50 value 
- Convert currently displayed value from RAD50 to ascii. 



OOOOOOG 



F'RINT 

MOV 

CALL 

PRINT 

MOV 



D. LVAL, RO 
PRTR50 



; Print "=" 

; Get last displayed value 

; Convert to ascii and print 

i Print spaces 

j Say instruction length = 2 bytes 



#2, D. ILEN 
See if user wants to enter a new RAD50 value for this cell 



; Get 1st character 

; Push the character 

> Ho new value wanted? 

> Br if no new value specified 

; Advance to next cell? 

; Br if yes 



CALL 


GETCHR 


CALL 


PSHCHR 


CMPB 


RO, #CR 


BEQ 


7* 


CMPB 


RO, #LF 


BEG 


7* 



Now accept a new RAD50 value 

J Form new RAD50 value in Rl 
> Set count of # chars to accrue 
1*: CALL GETCHR iGet next character of value 

; Reached endT-" 
; Br if yes 
i LF is also end 

Point to RAD50 character table 
3«: CMPB RO, <R3)+ iSearch for char in table 

Br if found 
Checked all of table? 
Loop if not 

Invalid RAD50 character 
4$: SUB #R50CHR+1.R3 ; Get RAD50 character value 

Multiply previous value by 50 
Add new character value 
Loop if more characters needed 
6$: CALL GETCHR ; Ignore other characters up to CR 



CLR 


Rl 


MOV 


#3, R2 


CALL 


GETCHR 


CMPB 


RO, #CR 


BEQ 


2* 


CMPB 


RO, #LF 


BEQ 


2* 


MOV 


#R50CHR,R3 


CMPB 


RO, (R3) + 


BEQ 


4* 


CMP 


R3, #R50CHR+50 


B1,,D 


3* 


ERR 


#EM*IRC 


SUB 


#R50CHR+1, R3 


MUL 


#50, Rl 


ADD 


R3, Rl 


SOB 


R2, 1* 


CALL 


GETCHR 


CMPB 


RO, #CR 


BEQ 


2* 


CMPB 


RO, #LF 


JJWE 


6* 



We have gotten the RAD50 value. Store it in currently open cell 



*: 



CALL 

MOV 

CALL 



PSHCHR 
Rl, RO 
STRVAL 



i Save the terminating character 

; Get value to RO for' STRVAL 

; Store value into currently open cell 



If command ended with Line feed, open next cell 



7$: 



003410 105037 OOOOOOG 



CLR 


D. PCOL 


CALL 


GETCHR 


CMPB 


RO, #LF 


BNE 


9* 


CLRB 


D. VIFL 



j Say print column ~ O 

j Get the terminating character 

.: Open the next eel 17' 

> Br if not 

;Tell LF not to store into current cell 
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59 003414 000137 003536" 

59 

60 

61 

62 003420 000137 001476' 



JMP 
; Fini r. h f ci 
9* : JMP 



CMDLF 



WEWLIN 



(Go open the next cell 



i 
f 



TSDBUG 

Of.]" ™. 



— TSX-F 
M o n i t o r 



1 

*-, 

3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
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data f. f 'i 1 

. SBTTL "M" -- Monitor data cell 
; "adfiress; valueM" — Monitor data cell 



003424 
003432 
003436 
003440 
003446 
003452 



042737 OOOOOOC OOOOOOG CMDM: B.IC 

005737 OOOOOOG TST 

001420 BEQ 

052737 OOOOOOG OOOOOOG BIS 

013700 OOOOOOG MOV 

010037 OOOOOOG MOV 



003456 
003462 
003464 
003-172 



105737 
003406 
052737 
013737 



#<Df DMON ! D$DVAL>. D. FLAG i Reset data-cell monitoring flags 

D. VALl i Was an address specified? 

9* ; Br if not — Disable monitoring 

#D$DMON> D. FLAG i Enable data monitoring 

D. VALl^RO ; Get address of cell to monitor 

RO; D. DADR j Set it as control address 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



003500 000137 001476' 



9*: 



See if breakpoint is to be triggered whenever value in cell changes 
or only when a specified value occurs. 

Was a value specified'7' 
Br if not 

Watch for specified value 
Save the specified value 



i Go get next command 



TSTB 


D. V2FL 


BLE 


9* 


BIS 


#D$DVAL. I). FLAG 


MOV 


D. VAL2, D. DTRG 


F i n i s,- h e d 




JMP 


NEWLIN 



i 

< 

i 

€ 
€ 
C 

€ 
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1 



SBTTL "CR" 



ClD&e current location 



2 








3 
4 








5 


003504 


005037 


0000000 


6 


003510 


105737 


0000000 


7 


003514 


003404 




S 


003516 


013700 


0000000 


9 


003522 


004737 


006412' 


10 


003526 


005037 


OOOOOOG 


11 
12 
13 


003532 


000137 


001506' 








14 








15 








16 








17 


003536 


005037 


0000000 


18 


003542 


005737 


OOOOOOG 


19 


003546 


001447 




20 


003550 


105737 


OOOOOOG 


21 


003554 


003404 




22 


003556 


013700 


OOOOOOG 


23 


003562 


004737 


006412' 


24 


003566 


105737 


OOOOOOG 


25 


003572 


001017 




26 


003574 


062737 


000002 OOOOOOG 


27 


003602 






28 


003612 


004737 


006750 ' 


29 


003616 






30 


003626 


000137 


001654' 


31 


003632 


005237 


OOOOOOG 


32 


003636 






33 


003646 


004737 


006750' 


34 


003652 






35 


003662 


000137 


001732' 


36 


003666 


000137 


001476' 



"carriage-return" - — Clot-e current cell 



CMDCR : 



9$: 



CLR 


D. POOL 




TSTB 


D. VIFL 




BLE 


9* 




MOV 


D. VALl, 


RO 


CALL 


STRVAL 




CLR 


D. LOC 




JMP 


NEWCMD 





; Say print column = 

;Was 3 neuj value specified for this cell? 

J Br if not 

; Yes> get the value 

; Store value into current location 

I Say no location open now 

i Go get next command 



SBTTL 



"LF" — Cio&e location and advance to next 



"line-feed" — Close current cell and advance to next 



CMDLF: 


CLR 


D. PCOL 




rsf 


D. LOC 




BEQ 


5* 




TSTB 


D. VIFL 




BLE 


1* 




MOV 


D. VALl, RO 




CALL 


STRVAL 


!•*: 


TSTB 


D. BYTM 




BNE 


2* 




ADD 


#2, D. LOC 




. TTYOUT 


#CR 




CALL 


SHOLOC 




PRINT 


< / > 




JMP 


CMDSLl 


2*: 


INC 


D, LOC 




TPRINT 


#CRCHAR 




CALL 


SHOLOC 




PRINT 


< \ > 




JMP 


CMDBKl 


5*; 


JMP 


NEWLIN 



Say print column ~ O 

Is a location open now? 

Br if not 

Was a new value specified for this cell? 

Br if not 

Get new value 

Store into currently open cell 

Are we in byte or word mode? 

Br if in byte mode 

Advance location counter 

Go to new line 

Display address of new location 

Display "/" 

Simulate "/" command 

Advance to next byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 

No cell open — Ignore LF 



TSDBUG ■•— TSX-F 


1 1! 5 ci e b u 


q g i n g m o 


f-W. 


:R0 


V05. 04 


Monday 21 


-Dec "87 OS: 4P 


"'J" — Close iocation 


and advsrice 


to 


instruc t 


ion 




1 

2 














. SBTTL 


"3" — Cloi.. 


3 
4 
5 003672 












I1 1 1I 


—- Close 


the current 


00 5037 


0000000 








CMDRSB 


; CLR 


D. PCOL 


6 003676 


105737 


0000000 










TSTB 


D. VIFL 


7 003702 


00 1 4o;^ 












BEQ 


3* 


8 003704 


000137 


002034 •- 










JMP 


CMDDCD 


9 003710 


005737 


OOOOOOG 








3$: 


rsT 


D. LOC 


10 003714 


00 J 440 












BEG 


5* 


11 003716 


105737 


0000000 










TSTB 


D. BYTM 


12 003722 


001017 












BNE 


2* 


13 003724 


063737 


OOOOOOG 


OOOOOOG 




ADD 


D. ILEN, D. LOC 


14 003732 














TPRINT 


#CRLF 


15 003742 


004737 


006750' 










CALL 


SHOLOC 


16 003746 














PRINT 


< c ;:5- 


17 003756 


000137 


002034 ' 










JMP 


CMDDCD 


18 003762 


005237 


OOOOOOG 








2*: 


:iMC 


D. LOC 


19 003766 














TPRINT 


#CRCHAR 


20 003776 


004737 


006750' 










CALL 


SHOLDC 


21 004002 














PRINT 


< \ > 


22 004012 


000137 


001726' 










JMP 


CMDBKS 


23 004016 


000137 


001476' 








5*: 


JMP 


NEWLIN 



Page 21 

c location and advance to instruction 
location and open next as an instruction. 



Say print column ~ 

Was an address specified? 

Br if not 

Treat 3 like C 

Is a location open now? 

Br if not 

Are we in byte or word mode? 

Br if in byte mode 

Advance location counter 

Go to new 1 ine 

Display address of new location 

Display "J." 

Simulate "C" command 

Advance to next byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 

No cell open — Ignore LF 
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"All — Close current .location and go to previotis 



DO 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



004022 
004032 



004034 
004040 
004044 
004046 
004052 
004056 
004060 
004064 
004070 
004074 
004076 
004104 
004114 
004120 
004130 
004134 
004140 

004150 
004 1 54 
004164 



000400 



00 5037 
005737 

00 1 oo;.* 

000137 
105737 
003404 
013700 
004737 
105737 
001017 
162737 

004737 

000137 
005337 

004737 

000137 



. SB TIL 
"Bar. k space" 



••" -— • Cln&c current location and go to previous 
Equivalt?nt to up-arrotu 



CMDBSP: , TTYOUT #136 
BR CMDUP 



i Print "■'-" 

i Houi treat backspace like up-arrow 



0000000 
0000000 

001476' 
0000000 

0000000 
006412' 
OOOOOOG 

000002 0000000 

006750 ' 

001654 '■ 
OOOOOOG 

006750' 

001732' 



Close current location and go to previous one. 



CMDUP : 


CLR 


D. PCOL 




TST 


D. LOC 




BNE 


3* 




JMP 


NEWLIN 


3$: 


TSTB 


D. VI PL 




BLE 


1* 




MOV 


D. VALl, RO 




CALL 


STRVAL 


If: 


TSTB 


D. BYTM 




BNE 


2* 




SUB 


#2, D. LOC 




TPRINT 


#CRLF 




CALL 


SHOLOC 




PRINT 


< / ;> 




■JMP 


CMDSLl 


2$: 


DEC 


D. LOC 




TPRINT 


#CRLF 




CALL 


SHOLOC 




PRINT 


< \ :> 




JMP 


CMDBKl 



open? 



no cell open 
value specified 



Say print column = 

Is a cell 

Br if yes 

Ignore if 

Was a neu) 

Br if not 

Get new value 

Store into currently open cell 

Are we in byte or word mode? 

Br if in byte mode 

Move to previous word 

Go to new line 

Display address of new location 

Display "/" 

Simulate "/" command 

Move to previous byte 

go to new line 

Display address of new location 

Display "\" 

Simulate "\" command 



for this cell? 
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Jubrout ins- 



3 








4 








5 








6 








7 004170 


010046 






S 








9 








10 








11 004172 


012700 


0000000 




12 004176 


005020 






13 004200 


020027 


0000000 




14 004204 


103774 






15 004206 


012:'37 


177777 


OOOOOOG 


16 004214 


052737 


0000000 


OOOOOOG 


17 








la 








19 








20 








21 004222 


052737 


OOOOOOG 


OOOOOOG 


22 








23 








24 








25 004230 








26 








27 








28 








29 004240 


012600 






30 004242 


000207 







SBTTL — Subrout :'mt'!> — 

SBTTL DBGIN.l — IrcitiaiizG the debugger 



i DBG IN I is called to initialize the debugger. 
; The debugger greeting me'>&age is also printed. 

DBGINI; MOV RO, -<SF) 

Initialize some debugger values 



1$: 



MOV 
CLR 
CMP 
BLO 
MOV 
BIS 



#D. START, RO 

<R0) + 

RO, #D. END 

1* 



i Point to start of debugging data 
; Clear all debugging data to 
; Finished? 
> Loop if not 



#177777, D. MASK ; Initialize the data mask 
#D$INITj D. FLAG ; Say initialization has been done 



Set previous-mode = user in our PSW so me can use MFPD/MTPD to 
access user's program. 



B I S #UPMODE.. ©#PSW 
Print greeting message 

TPRIWT #TM«GRT 
f' i n i u it e d 

MOV (SP)+,RO 
RETURN 



.: Say previous mode = user 



iPrint greeting message 
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BRKRST -— Reset breakpciint instructions 
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i 
•3 
3 
4 
5 
6 
7 
8 
9 
10 
11 

13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



UBTTL BRKRST — RtT.t>t breakpoint instruc ti on& 



004; 
004: 



?44 
246 



004256 
004264 



004266 
004270 
004274 
004276 
004300 
004304 
004306 
004312 
004314 
004320 
004324 
004326 



004334 
004336 



010146 
032737 
001427 
032737 
00142H 



005001 
016100 
001407 
106510 
022627 
001003 
016146 
106610 
062701 
020127 
101761 
042737 



012601 
000207 



BRKRST is called on entry to the debugger when a breakpoint occurs. 
It restores the contents of- the instruction cells that were replaced 

by BPT instructions for breakpoints. 

BRKRST: MOV R1,~(SP) 

0000000 0000000 BIT #D*BKST. D. FLAG ; Are breakpoints set in program? 

BEQ 9* i Br if not 

0000000 OOOOOOQ BIT #D*CKBK, D. FLAG ; Are there any active instruction breaks? 

BEQ 9* ; Br if not 

i 

> Reset instructions that mere overwritten by breakpoints 



OOOOOOG 

000003 

OOOOOOG 

000002 
000020 

OOOOOOG OOOOOOG 



CLR 
1*: MOV 
BEQ 
MFPD 
CMP 
BNE 
MOV 
MTPD 
2$: ADD 
CMP 
BLOS 
BIC 

i 

; Finished 



9*: 



MOV 
RETURN 



Rl 

D. BKAD<R1), RO 

2* 

(RO) 

<SP)+, #3 

2* 

D. BKSV<R1), "-<SP) 

<R0) 

#2, Rl 

Rl. #16. 

1* 

#D*BKST, D. FLAG 



<SP)+, Rl 



Init index into breakpoint tables 

Get address of breakpoint 

Br if this breakpoint not in use 

Get breakpoint instruction 

Is this a breakpoint instruction? 

Br if not 

Get saved instruction 

Restore saved instruction 

Advance breakpoint index 

Checked all breakpoints?' 

Loop if more to check 

Say breakpoints no longer set 



f 






TSDBUG - 
BRKSET - 

1 

2 

3 

4 

5 

6 

7 

1=5 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



- TSX-Pius ciebuqging mo HACRO V05. 04 

Set b r e a k p o i j i l s 



004340 
004342 
004350 



004352 
004356 
004362 
004364 
004366 
004372 
004376 
004400 
004-104 



23 
24 

25 004414 

26 004416 



010146 
032737 
00 1416 



012701 
0161 00 
001406 
106510 
012661 
012746 
106610 
162701 
002364 



21 00 4 ■% 06 5 2 7 3 7 



Monday 21 -Dec -87 OS: 4P Page 



BBTTL BRKSET — Set; breakpoints 



BRKSET is called when leaving the debugger and entering the user's program. 
It sets BPT instructions in those locations marked for breakpoints. 



BRKSET: MOV 
0000000 0000000 BIT 

BEQ 



R 1 , - < SP ) 
#D*CKBK,D. FT AO 
3* 



Set breakpoints 



000020 

ooooooe 



0000000 
000003 

000002 

ooooooe 



2$: 
OOOOOOG 3*: 



1260 1 
000207 



NOV 

MOV 

BEQ 

MFPD 

MOV 

MOV 

MTPD 

SUB 

BGE 

BIS 

F i n j & h £? d 

MOV 
RETURN 



#16. , Rl 

D. BKAD<R1). RO 

2* 

(RO) 



; Are there any instruction breakpoints? 

; Br if not 



i Set index for last breakpoint 
.; Get address where breakpoint goes 
j Br if this breakpoint not in use 
; Get current contents of location 



(SP)+, D. BKSV<R1 ).i Save original contents of cell 



#3. "<SP> 

(RO) 

#2. Rl 

1* 

#Df EKST, D. FLAG 



(SP)-i-, Rl 



i Push BPT instruction 

.; Store BPT instruction into user's program 

J More breakpoints to check? 

J Br if yes 

.; Set flag saying breakpoints set in program 



( 
i 
i 

i 
i 
i 
i 
i 



i 
i 
i 
i 
i 
i 



TSDB UG - 
BHKCHK - 

.1 

'"> 

f- . 

3 
4 
5 
& 
7 

a 

9 
10 
l.t 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 

3e 

39 
40 

41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL BRKCHK — Determine type of breakpoint 



004420 010146 



004422 042737 OOOOOOC OOOOOOG 



Determine the type of breakpoint that has occurred. 
There are four different types of breakpoints: 

1. Data breakpoints that are trigciered when a monitored cell changes 
value or takes on a {specified value. 

2. Instruction breakpoints set by use of the "a; nB" instruction. 

3. Instruction breakpoint used to catch a CALL return. 

4. Sinqle-step breakpoints that result from the use of the "; IS" 
c ommand. 



1 n p u t G : 
D. R7 = 

Outputs.; 
D^DBRK 
0*1 BRK 
D*9BRK 
D*FDRK 



PC after the break 



D. FLAG 
D. FLAG 
D. FLAG 
in D. FLAG 



m 
in 
in 



Data breakpoint 

I n • ■ t r u c t i o n breakpoint 

Sincile-step breakpoint or CALL breakpoint 

Forced breakpoint (user typed ctrl-B) 



D. .BKNii ■= Breakpoint number 
BRKCHK: MOV Rl.. -<SP) 

Clear instruction and data breakpoint flags 



BIG 



#<D*DBRK!D*IBRK!D*SBRK>, D. FLAG ; No breakpoints yet 



See if a data breakpoint is active 



004430 
004436 
004440 
004444 
004446 
004452 
004454 
004456 
004464 

004466 

004472 
004474 

004476 
004502 



r\ '^ ^'y "7 ■",■> " 7 

001425 
013701 
1065U 
013701 
005101 
040116 
032737 
00 1 004 

022637 

001004 
000406 

022637 
001003 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 



2* 



B 1 T 

MOV 

MFPD 

MOV 

COM 

BIC 

BIT 

BNE 
Trigger data 

CMP 

BiME 

BR 
Trigger data 

CMP 

BNE 



#D$DMON, D. FLAG 

1* 

D. DADR, Rl 

(Rl) 

D. MASK, Rl 

Rl 

Rl, (SP) 

#D*DVAL, D. FLAG 

2* 



Is a data breakpoint active? 

Br if not 

Get address of monitored cell 

Get contents of monitored cell 

Get data mask 

Comp lement 

Leave only bits of interest 

Are we waiting for a specified value? 

Br if yes 



breakpoint whenever monitored data cell changes value 



(SP)+, D. DOLD 

3* 

1* 

breakpoint if 

(SP)+, D, D7RG 

1* 



;Has value changed? 
i Br if yes — trigger breakpoint 
J Hasn't changed — no data break 
value takes on specified value 

iDoes cell have value of interest? 
; Br if not — no data breakpoint 



; Trigger a data breakpoint 
004504 052737 OOOOOOG OOOOOOG 3*: BIS #D*DBRK, D. FLAG ; Set data-breakpoint flag 

5 Jiiee if we need to check for instruction or single-step breakpoints 



004512 032737 <}00000C OOOOOOG 1*: 

004520 001442 



BIT #<:DfSSTP!D*TSrP!D*CKBK>, D. FLAG i Any instruction breaks or stp? 
BEQ 9* i Br if neither instruction brks or single step 



Ignore single-step and instruction breakpoints if we just 
executed a pending instruction. 



TBDBUG 
BRKCHK 
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Determine tiipf of breakpoint 



I 

€ 



5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
04 
85 
86 
87 
88 
89 
90 



004530 



004532 
004540 
004542 
004550 
004556 



004560 
004564 
004570 
004574 
004600 
004602 
004606 
004610 



004612 
004614 

004620 



004626 
004630 



001036 



0000000 0000000 



Wll #D$IPND. D. FLAG ;Did we just execute a pending instruction? 

BME 9* ; Br if yes 

Bee if this is a single- &tep breakpoint 



001407 
052737 
1 1 2737 
000423 



012701 
013700 
162700 
020061 
001404 
162701 
002372 
000406 



006201 
110137 
052737 



012601 
000207 



OOOOOOC OOOOOOG 

0000000 OOOOOOG 5$; 
000011 OOOOOOG 



.8 1 T 

BEO 

BIS 

MOVE 

BR 



#D$SSTP !D*TSTP. D. FLAG i Are we single stepping program? 



4* 

#D$SBRK, D. FLAG 

#9. , D. BKNM 

9* 



Br if not 

Set single-step breakpoint flag 

Say this is breakpoint # 9 



See if this is an instruction breakpoint 



000020 
OOOOOOG 
000002 
OOOOOOG 

000002 



4<S: 



7*: 



MOV 


#16. , Rl 


MOV 


D. R7, RO 


SUB 


#2, RO 


CMP 


RO, D. BKAD<R1) 


r-iEO 


6* 


SUB 


#2, Rl 


BGl^ 


7* 


BR 


9* 



Init breakpoint index 

Get address after breakpoint 

Point to break instruction 

Search for which breakpoint was hit 

Br if found it 

Get next breakpoint index 

Loop if more breakpoint to check 

This is not an instruction breakpoint 



6$ 



We hit an instruction bri-akpoint 

; Get breakpoint number 



OOOOOOG 
OOOOOOG OOOOOOG 



9*: 



ASR 

MOVB 

BIS 

f" i n i b h fc il 

MOV 
RETURN 



Rl 

Rl, D, BKNM 

#D$IBRK, D. FLAG 



<SP)+, Rl 



i Remember we had an instruction break 



TSDBUG - 
SHOBRK - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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004632 010146 
004634 



004644 032737 0000000 OOOOOOG 

004652 001454 

004654 

004700 013700 0000000 

004704 004737 007146' 

004710 

004722 013700 0000000 

004726 004737 007146' 

004732 

004742 013700 OOOOOOG 

004746 106510 

004750 012600 

004752 010037 OOOOOOG 

004756 004737 006100' 

004762 013700 OOOOOOG 

004766 005100 

004770 040037 OOOOOOG 

004774 



. SBTTL SHOBRK — Displaii breakpoint information 

SHOBRK is called to display information about a breakpoint 
that has been triggered. 

SHOBRK; MOV R1,-<SP) 

TPRINT #CRLF ; Get to start of neu> line 

See if a data breakpoint occurred 

#D$DBRK, D. Fl AG J Did a data breakpoint occur? 

i Br i f not 
at > 

; Get breakpoint PC 
iDisplay the address 

i Gst address of monitored cell 

; Display it 

; Get address of cell 

; Get current contents of cell 

; Save old cell value 
.: Display value of cell 
; Get data mask 
; Comp lement 

i Clear all but bits of interest 
TPRINT #CRLF ; Go to new line 

See if a single-step breakpoint occurred 



BIT 


#D$DBRK, D 


BEG 


1* 


PRINT 


<Data brt? 


MOV 


D. R7. RO 


CALL 


LSTADR 


PRINT 


<■ — > 


MOV 


D. DADR> RO 


CALL 


LSTADR 


PR 1 NT 


< = > 


MOV 


D. DADR, RO 


MFPD 


(RO) 


MOV 


(SP)+, RO 


MOV 


RO, D. DOLD 


CALL 


PRTWRD 


MOV 


D. MASK, RO 


COM 


RO 


BIC 


RO, D. DOLD 



005004 032737 OOOOOOG OOOOOOG 1*: 

005012 001406 

005014 5*: 

005026 000451 



BIT #D*SBRK, D. F'LAG ;Did a single-step breakpoint occur? 

BHO 2* ; Br if not 

PRINT <Step.> ; Print heading 

BR 3* i Now treat like instruction breakpoing 



005030 032737 OOOOOOG OOOOOOG 2$: 

005036 001426 

005040 

005050 123727 OOOOOOG 000010 

005056 001003 

005060 005037 OOOOOOG 

005064 000753 

005066 6$: 

005074 1 1 3700 OOOOOOG 

005100 004737 005772' 

005104 

005112 000417 



See if an instruction brt^akpoint occurred 

#D$IBRK, D. FLAG ; Instruction breakpoint? 

; Br if not 
; Go to new 1 ine 
i CALL breakpoint?" 
; Br if not 

jClear the call breakpoint 
; Br if yes — Treat like single step break 

i Get breakpoint number 
i Print breakpoint number 



BIT 


#D$IBRK,D 


BEG 


4* 


TPRINT 


#CRLF 


CMPB 


D. BKNM, #8 


BNE 


6* 


CLR 


D. CBRK 


BR 


5* 


PRINT 


<:b.> 


MOVB 


D. BKNM, RO 


CALL 


PRTOCT 


PRINT 


<; > 


BR 


3* 



005114 032737 OOOOOOG OOOOOOG 4$: 

005122 001427 

005124 

005134 



EJee if we had a forced breakpoint 

BIT #D*FBRK, D. FLAG ; Forced breakpoint? 

BBQ 9* i Br if not 

TPRINT #CRLF J Go to a new line 

PRINT <Break at > 
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SHOBRK -- Display breakpoint inf-ormati on 



c 



5a 

59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



005 1 52 1 3700 OOOOOOG 
005156 004737 007146' 



005162 
005166 
005172 



013701 
004737 



OOOOOOG 
007510' 



005202 012601 
005204 000207 



Display the address of fcht? breakpoint 



3-^: 



NOV 
CALL 



D. R7, RO 
LSTADR 



i Get address where break occurred 
^Display the address 



Display the decoded instiuc ti on 



MOV D. R7, Rl 
CALL DECODE 
TPRINT #CRLF 



Fini BliiiQ 



9-*: 



MOV (SP)+, Rl 
RETURN 



iGet address of break 

i Display the decoded instruction 

; Go to neuj 1 ine 



TBDBUG 
FLOBRK 
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■■- Set flag if any breakpoints are activt? 



1 



4 

5 

6 

7 

£1 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



SBTTL FLGBRK 



Get flag if any breakpoints are active 



005206 010146 



005210 012701 000020 

005214 005761 0000000 

005220 001007 

005222 162701 000002 

005226 002372 



005230 042737 0000000 OOOOOOG 
005236 000403 



i FLGBRK is called to determine if there are any active instruction 
; breakpoints. If there are, the D*CKBK flag is set in D. FLAG; 
> otherwise the D*CKBK flag is reset. 

FLGBRK : MOV R 1 , ~ < SP ) 

; Determine if there are any normal instruction breakpoints 



f/$: 



MOV 


#16. , Rl 


TST 


D. BKAD(Rl) 


BNE 


6* 


SUB 


#2, Rl 


BGE 


5* 



; Get index to last breakpoint entry 

J Is this breakpoint set? 

> Br if yes 

i More to chec kT' 

; Loop if yes 



IMo breakpoints are activt? 



BIC #D$CKBK» D. FLAG ; No breakpoints are set 
BR 9* 

There are active breakpoints 



005240 052737 OOOOOOG OOOOOOG 6$: 



Bl! 



#D*CKBK> D. FLAG i Remember some breakpoint is set 



005246 012601 
005250 000207 



Finished 



9*: 



MOV <SP)H", Rl 
RFTURN 



TSDBUG ■ 


-- TSX-F 


ius debuqging mo 


ACF^VAL 

1 

'~'5 


- Ac CTb 


e a g e ) ! t 


rai valu 


3 
4 
5 








6 

7 








8 








9 








10 








1.1 








12 








13 








14 








15 

■1 /. 


005252 


010246 




.1 o 
17 








18 








19 


005254 


004737 


005720 ' 


20 


005260 


1 20027 


000044 


21 


005264 


001461 




22 


005266 


120027 


000056 


23 


005272 


001451 




24 


005274 


004737 


005764 ' 


25 


005300 


120027 


000053 


26 


005304 


001414 




27 


005306 


120027 


000055 


28 


005312 


001411 




29 


005314 


120027 


000060 


30 


005320 


103403 




31 


005322 


120027 


000071 


32 


005326 


101403 




33 








34 








35 








36 


005330 


005001 




37 


005332 


005000 




38 


005334 


000457 




39 








40 








41 








42 


005336 


004737 


005500' 


43 








44 








45 








46 


005342 


010102 




47 


005344 


120027 


000054 


48 


005350 


001016 




49 


005352 


020227 


000007 


50 


005356 


101404 




51 


005360 






52 


005370 


006302 




53 


005372 


004737 


005720' 


54 


005376 


004737 


005500 ' 


55 


005402 


066201 


OOOOOOG 


56 


005406 


010100 




57 


005410 


012701 


000001 
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SBTTL ACRVAL • — Accrue a general value 



ACRVAL is called to accrue a general value of the form 

Ivt Hval ue or $x 

where "r" is a relocation base register number* 

and "x" is an internal register number. 

Outputs; 
RO ~ Value accrued. 
Rl =- Status flag: 

+1 ==> normal value 

~=y No value gotten. 
-1 ==> Internal regi&ter address. 

AC R V AL : MOV R 2 , - < SP ) 

Get Ist character and see if this is a normal value or a register name. 

J Get 1st character 

; Is this a register value? 

J Branch if yes 

; ". " = Current program counter 

j Br if period 

; Save the character 

i Is this a sign character?" 

> Br if yes 



CALL 


GETCHR 


CMPB 


RO. #'$ 


BEO 


1* 


CMPB 


RO, #'. 


BEQ 


10* 


CALL 


PSHCHR 


CMPB 


RO, #' + 


BEQ 


2* 


CMPB 


RO, #'- 


BEQ 


2* 


CMPB 


RO, #'0 


BL.0 


8* 


CMPB 


RO, #'9 


BLOS 


2* 



i No value was specified 



8*: 



.: Accrue normal value 
2^: CALL ACRNUM 



CLR 


Rl 


CLR 


RO 


BR 


9$ 



; Is this character a digit? 
iBr if not a digit 

jBr if a digit 



; Return status code 
i Return value of O 



j Accrue first part of number 



€ 

i 



i See if 1st part of value is a relocation base register number 



4*: 



3*: 



MOV 

CMPB 

BNE 

CMP 

BLOS 

ERR 

ASL 

CALL 

CALL 

A.DD 

MOV 

MOV 



Rl, R2 

RO, #', 

3* 

R2, #7 

4* 

#EM$IRB 

R2 

GETCHR 

ACRNUM 

D. RLBS(R2.>, Rl 

Rl, RO 

#1, Rl 



i Save value that mas accrued 

;Was first part terminated with a comma? 

i Br if not 

; Is first part a valid register number? 

; Br if ok 

.! Convert reg # to word table index 

j Sk ip over comma 

; Accrue second part of number 

;Add relocation base to offset value 

j Return value in RO 

; Return status code in Rl 



I 



TBDBUG - 


-■ TSX~P 


1 u s deb u 


aging mo 


ACf?VAL ■ 


— Ace T- u 


e a g e 1 1 1> 


lal valu 


5S 


005414 


000427 




59 








60 








61 








62 


005416 


013700 


0000000 


63 


005422 


012701 


000001 


64 


005426 


000422 




65 








66 








67 








68 


005430 


004737 


005720 ' 


69 


005434 


012701 


000014 


70 


005440 


120061 


000362 ' 


71 


005444 


00 1 406 




72 


005446 


005301 




73 


005450 


002373 




74 


005452 






75 


005462 


006301 




76 


005464 


016100 


000400 ' 


77 


005470 


012701 


mill 


78 








79 








80 








81 


005474 


012602 




82 


005476 


000207 





Monday 21-Dec-S7 08:42 F»age 29-1 



BR 



Value is 



9* 



; Return 



(period). Use current program counter. 



10*: 



MOV 
MDV 
BR 



D. R7, RO 
#1, Rl 
9* 



Internal value ("*x".) 



1*: 
6$: 



CALL 

MDV 

CMPB 

BEQ 

DEC 

BOE 

ERR 

ASL 

MOV 

MDV 

F irci 5hed 



9$: 



MOV 
RETURN 



GETCHR 

#NUMINT~1, Rl 

RO. INTCHR<RJ ) 

5* 

Rl 

h% 

#EM*I1V 

Rl 

INTADR<Ri). RO 

#-1- Rl 



< SP ) +, R2 



; Get current program counter value <R7) 

j Say uje got a normal value 
■> Return 



Get register letter 

Get # internal registers 

Look up register letter 

Bt if found 

More to check? 

Loop if yes 

Invalid register 

Convert index to 

Get 

Get 



name 

word table index 
address of cell for register 
status code 



f 
I 
f 
I 
I 

4 
4 
€ 
C 

( 

€ 
€ 

< 

C 
( 
4 

4 
4 
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3 








4 








5 








6 








7 








8 








9 








10 


005500 


010246 




11 


005502 


010346 




12 


005504 


010546 




13 








14 








15 








16 


005506 


005002 




17 


005510 


004737 


005720 ' 


IS 


005514 


120027 


000053 


19 


005520 


001407 




20 


005522 


120027 


000055 


21 


005526 


00 1 002 




22 


005530 


005202 




23 


005532 


000402 




24 


005534 


004737 


005764 ' 


26 








27 








28 


005540 


012701 


0000000 


29 


005544 


01270n 


000010 


30 


005550 


004737 


005720' 


31 


005554 


120027 


000060 


32 


005560 


10341:7 




33 


005562 


120027 


000071 


34 


005566 


101012 




35 


005570 


120027 


000067 


36 


005574 


101402 




37 


005576 


012705 


000012 


38 


005602 


020127 


OOOOOOG 


39 


005606 


103040 




40 


005610 


110021 




41 


005612 


000756 




42 








43 








44 








45 


005614 


105011 




46 


005616 


120027 


000056 


47 


005622 


00 1 003 




43 


005624 


012705 


000012 


49 


005630 


000402 




50 


005632 


004737 


005764 ' 


51 








52 








53 








54 


005636 


012703 


0000000 


55 


005642 


005001 




56 


005644 


1 1 2300 




57 


005646 


ooi4o;i 





SDTTL ACRNUM 



Accrue a number 



ACRNUM i5 called to accrue a number. 

The number may be octal or decimal <ujith a decimal point) 



Outputs; 
Rl - Value accrued 
RO = Delimiter character that waij hit. 



ACRNUM: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP> 
R5, -<SP) 



See if number has a leading &ign character 



8*: 

6*: 
1*: 



CLR 

CALL 

CMPB 

BEQ 

CMPB 

BNE 

INC 

BR 

CALL 



GETCHR 

RO/ #' + 

6* 

RO. #'- 

8* 

R2 

6* 

PSHCHR 



; Assume result should be positive 

; Qet 1st character of number 

; Leading plus signT' 

i Br if yes 

; Leading minus signT' 

j Br if not 

i Set flag to negate the value 



;Push the first digit 
Scan the number and stort* in D. NMBF 



3*; 



MOV #D. NMBF. Rl 

MOV #8. , R5 

CALL GETCHR 

CMPB RO. #'0 

BLO 2* 

CMPB RO. # '9 

BHI 2* 

CMPB RO. #'7 

BLOS 3* 

MOV #10. . R5 

CMP R 1 , #D. NMBE 

BHIS 11$ 

MOVB RO, (Rl)+ 

BR 1* 

Hit end of number 



2*: 



4*: 

5*: 
7$: 



CLRB 

CMPB 

BNE 

MOV 

BR 

CALL 



<R1) 

RO. #'. 

4* 

#10. . R5 

5* 

PSHCHR 



Point to number character buffer 

Assume this is an octal \/al\ie 

Get next character of number 

Is this character a digit?" 

Br if not 

Decimal digit? 

Br if not 

Octal digit? 

Br if yes 

This must be a decimal value 

Are tue about to overflow the buffer? 

Br if yes 

Store character into buffer 

Loop to get rest of number 



; F*ut null at end of buffer 

; Decimal point at end of number? 

i Br if not 

j Remember this is a decimal value 



i Save del imi ter 
Convert number string tn binary value 



MOV 
CLR 
MOVB 
BEQ 



#D. NMBF. R3 
Rl 

<R3)+. RO 
9* 



i Point to start of buffer 

.; Store value in Rl 

.Get next character 

; Br if hit end of number 



TSDBUG - 


— TSX-P 


lus debu(3C)ing mo 


ACRNUM 


-- Accrue a nufith 


'■IT 


58 


005650 


162700 


000060 


59 


005654 


07010?; 




60 


005656 


060001 




61 


005660 


000771 




62 








63 








64 








65 


005662 


005702 




66 


005664 


001401 




67 


005666 


005401 




68 








69 








70 








7i 


005670 


004737 


005720 ' 


72 


005674 


004737 


005764 •" 


73 


005700 


012605 




74 


005702 


012603 




75 


005704 


012602 




76 


005706 


000207 




77 








7S 








79 








80 


005710 
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SUB 
MUL 
ADD 



#'0, RO 
R5. Ri 
RO. Rl 
7* 



9*: 



10* 



TST 


R2 


BEQ 


10* 


NEG 


Rl 


F i n i G h e d 




: CALL 


GETCHR 


CALL 


PSHCHR 


MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





Convert digit to binary value 
Multiply previous value by 8 or 10. 
Add in new value 
Loop to get rest of number 



See if lue should negatfv tht* value 



Should uje negate the value 
Br if not 
Negate the value 



; Get delimiter character in RO 
j But push it back too 



Number overfloujed the buffer 
11*: ERR #EM*N7L i Number too long 



€ 
4 

4 



TSDBUG 
GETCHR 
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7 

a 

9 
10 
l.t 
12 
13 
14 
I'd 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



005720 



005720 1 1 3700 0000000 
005724 001014 



005726 

005732 005237 OOOOOOG 



005736 120027 000141 

005742 103405 

005744 120027 000172 

005750 101002 

005752 162700 000040 



005756 105037 OOOOOOG 
005762 000207 



005764 110037 0000000 
005770 000207 



. SBTTL GETCHR •- Gc-t next character from terminal 

Oet the.' next character from the terminal. 

Outputs; 
RO = Character gotten 

GETCHR: 

See if PSHCHR was called to save a character 



novB 



D. SVCH, RO 
9* 



;Has a character been pushed? 

i Br if yes 



No saved character. 

Get character from terminal. 



. TTYIN 
INC 



D. PCOL 

Convert lower-case characters to upper-case 

; Loujei — case a 



j Get character from terminal 
J Advance print column 



9$: 



CMPB 


RO, #141 


BLO 


9* 


CMPB 


RO, #172 


BHI 


9* 


SUB 


#40, RO 


Fini shed 




CLRB 


D. SVCH 


RETURN 





; Loujer-case z 

; Convert lower-case to upper-case 

i No saved character 



. SBTTL PSHCHR — Push a character 

Push a character so GETCHR will get it on next call. 

1 11 p u t s : 
RO = Character to be pushed. 



PSHCHR: MOVE RO, D. SVCH 
RETURN 



; Save the character for GETCHR 
i Finished 
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. SBTTL PRTOCT 



Print octal value 



4 
5 








6 
7 








8 


005772 


010146 




9 


005774 


010246 




10 


005776 


010346 




11 


006000 


005003 




12 


006002 


010001 




13 


006004 


005000 




14 


006006 


073027 


000001 


15 


006012 


012702 


000006 


16 


006016 


000403 




17 


006020 


005000 




18 


006022 


073027 


000003 


19 


006026 


050003 




20 


006030 


001406 




21 


006032 


062700 


000060 


22 


006036 






23 


006042 


005237 


OOOOOOG 


24 


006046 


077214 




25 


006050 


005703 




26 


006052 


001006 




27 


006054 






28 


006064 


005237 


0000000 


29 


006070 


012603 




30 


006072 


012602 




31 


006074 


012601 




32 


006076 


000207 





Print an octal value with no leading zeroes. 





I n p I 


ts: 






KO 


= Value 


to print. 


PRTOCT: 


MOV 


Rl, -<SP) 






MOV 


R2, - ( SP ) 






MOV 


R3, -<SP) 






CLR 


R3 






MOV 


RO, Rl 






CLR 


RO 






ASHC 


#1, RO 






MOV 


#6, R2 






BR 


2* 


1*: 




CLR 


RO 






ASHC 


#3, RO 


2$: 




BIS 


RO, R3 






BEQ 


3$ 






ADD 


#'0,R0 






. TTYOUT 








INC 


D. PCOL 


3$: 




SOB 


R2, 1* 






TS1 


R3 






BNE 


4* 






. TTYOUT 


#'0 






INC 


D. PCOL 


4i&: 




MOV 


<SP)+, R3 






MOV 


<SP)+, R2 






MOV 


(SP)+, Rl 






RETURN 





; Say non-zero digit not seen yet 
; Oet value to print 
; Oct 1st bit into RO 

; Print total of 6 digits 

; Oet next digit into RO 

Remember if non-zero digit seen 

Br if no non-zero digits seen yet 

Convert to ascii character 

Print the character 

Advance print column 

Loop if more digits to print 

Did we see any non-zero digits? 

Br if yes 

Print one zero if not 

Advance print column 
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1 



SBTTL PRTWRD 



Prirvt octal word value 



3 








4 








5 








6 








7 


006100 


010146 







006102 


010246 




9 


006104 


010001 




10 


006106 


005000 




11 


006 HO 


073027 


000001 


12 


006114 


012702 


000006 


13 


006120 


000403 




14 


006122 


005000 




15 


006124 


073027 


000003 


16 


006130 


062700 


000060 


17 


006134 






18 


006140 


005237 


OOOOOOG 


19 


006144 


077212 




20 


006146 


012602 




21 


006150 


012601 




22 


006152 


000207 




23 








24 








2'5 








26 








27 








28 








29 








30 








31 


006154 


010146 




32 


006156 


010246 




33 


006160 


010001 




34 


006162 


000301 




35 


006164 


005000 




36 


006166 


073027 


000002 


37 


006172 


012702 


000003 


38 


006176 


000403 




39 


006200 


005000 




40 


006202 


073027 


000003 


41 


006206 


062700 


000060 


42 


006212 






43 


006216 


005237 


OOOOOOG 


44 


006222 


077212 




45 


006224 


012602 




46 


006226 


012601 




47 


006230 


000207 





Print a 16-bit octal valuei 
Inputs: 
RO - Value to be printed. 



PRTyRD: 


MOV 


R 1 , ~ < SP ) 




MOV 


R2, -<3P) 




MOV 


RO, Rl 




CLR 


RO 




ASHC 


#1,R0 




MOV 


#6, R2 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0. RO 




INC 


D. PCOL 




SOB 


R2, 1* 




MOV 


( SP ) +, R2 




MOV 


<SP)+, Rl 




RETURN 





. SBTTL PRTBYT 



; Oet value to print 
> Get 1st bit into RO 

.; Print total of 6 digits 

i Get next digit into RO 

; Convert to ascii character 

.: Print the character 

j Advance print column 

i Loop if more digits to print 



Print octal byte value 



Print an S-bit octal vaJue. 

I n p u t B : 
f?0 = Value to be printed. 



PRTBYT: 


MOV 


Rl, -(SP) 




MOV 


R2, ~(SP.) 




MOV 


RO, Rl 




SWAB 


Rl 




CLR 


RO 




ASHC 


#2, RO 




MOV 


#3, R2 




BR 


2* 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0, RO 




INC 


D. PCOL 




SOB 


R2, 1* 




MOV 


( SP ) +, R2 




MOV 


(SP)+, Rl 




RETURN 





; Get value to be printed 
i Lef t~ju5ti f y value in Rl 
J Move l5t 2 bits into RO 

iPrint 3 digits total 

; Get next octal digit to RO 

j Convert to ascii character 

j Print the character 

i Advance print column 

j Loop if more digits to print 
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1 



3 








4 








5 








6 








7 








3 


006232 


010146 




9 


006234 


010246 




10 








H 








12 








13 


006236 


012702 


000003 


14 


006242 


005046 




15 


006244 


010001 




16 


006246 


005000 




17 


006250 


071027 


000050 


IS 


006254 


116146 


000220 ' 


19 


006260 


010001 




20 


006262 


077207 




21 








22 








23 








24 


006264 


012600 




25 


006266 


00i40t> 




26 


006270 






27 


006274 


005237 


OOOOOOG 


28 


006300 


000771 




29 








30 








31 








32 


006302 


012602 




33 


006304 


012601 




34 


006306 


000207 





. SBTTL PRTR50 — Print a RAD50 value 

PR1R50 is called to print a RAD50 <radix 50) value. 

Inputs: 
RO -■ Value to be printfii. 



PRTR50: MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 



MOV 


#3, R2 




CLR 


-<SP) 




MOV 


RO, Rl 




CLR 


RO 




DIV 


#50, RO 




MOVB 


R50CHR<R1).. 


- ( SP ) 


MOV 


RO, Rl 




SOB 


R2, 1* 





Convert value to ascii character string and stack the characters 

Oet # chars to convert 
Put null on stack to signal end 
Get value to be converted 
1*: CLR RO ; Clear high-order for divide 

Divide R0~R1 by 50 

Convert remainder to ascii and stack it 
Get quotient 
Loop if more to convert 

Finished conversion. Print the result. 

a^: MOV (5P>+, RO ; Get char to print 

i Br if hit end of string 
j Print the character 
; Advance print column 
; Loop to print more 



3$: 



MOV 


< SP > +, RO 


BEG 


3* 


. TTYOUT 




INC 


D. POOL 


BR 


2* 


F i n i j> h e d 




MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





€ 
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SBTTL ERRPRT 



Print an error messaqe 



3 
4 








5 








6 


006310 






7 


006320 






8 


006326 


005037 


OOOOOOG 


9 


006332 


013706 


ooooooe 


10 


006336 


000137 


001506' 


11 








12 








13 








14 








15 








16 








17 








18 








19 








20 


006342 


1 1 2200 




21 


006344 


00 140 'J 




22 


006346 






23 


006352 


005237 


OOOOOOG 


24 


006356 


000771 




25 


006360 


005202 




26 


006362 


042702 


000001 


27 


006366 


000202 





Print- the error message whose address is in Rl and then go and 
get a new command. 



RRPRT: TPRINT #CRLF 

TPRINT Rl 

CLR D. POOL 

NOV D. SPSV, SP 

JMP NEWCMD 



> Go to new line 
j Print error message 
; Say print column = O 
i Reset stack pointer 
j Go get a new command 



SBTTL LSTTXT — Print text string 



LSTI XT is called by u&i? of the PRINT macro. It prints a text 
string on the terminal without carriage-return, line-feed. 

Inputs: 
R2 = Address of string in ASCIZ form that follows call. 



LSTTXT: 


MOVB 


(R2)+, RO 




BEQ 


2* 




. TTYOUT 






IMC 


D. POOL 




BR 


LSTTXT 


2*: 


INC 


R2 




BIG 


#1>R2 




RTS 


R2 



Get nest char from text string 

Br if hit end of string 

Print the character 

Advance print column 

Loop till end of string hit 

Bound up to even byte address 

i Return following string 



TSDBUG 
SETLOC 



.1. 



4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 
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. SBTTL SETLOC — Set address of open cell 

SElLDC is called to set tho address of the currently open cell. 

I n p u t s : 
D. VALl = Address of cell to open. 
D. VIFL = Mode of address <+l=Cell in user's job, -l = Internal cell) 

Outputs: 
D. LOC = Address of opc?n cell. 
D. LOCM = Mode of cgU (M / -1) 



006370 113700 OOOOOOS 

006374 001405 

006376 110037 OOOOOOG 

006402 013737 OOOOOOG OOOOOOG 

006410 000207 



SETLOC: MOVE 
BEQ 
MOVB 
MOV 



D. VIFL, RO 

9* 

RO, D. LOCM 

D. VAL1,D. LOC 



; Get mode of address 

j Br if no address specified 

; Set mode of current cell 

j Set address of current cell 



9^: 



RETURN 
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3 






4 






5 






6 






7 






8 






9 






H) 






11 006412 


010146 




12 006414 


010246 




13 






14 






15 






16 006416 


105737 


0000000 


17 006422 


001471 




IB 






19 






20 






21 006424 


105737 


OOOOOOG 


22 006430 

23 

24 


100436 








25 






26 006432 


105737 


OOOOOOG 


27 006436 


ooioo;.) 




28 






29 






30 






31 006440 


010046 




32 006442 


013700 


ooooooe 


33 006446 


106610 




34 006450 


000456 




35 






36 






37 






38 006452 


042700 


1 77400 


39 006456 


013702 


oooooos 


40 006462 


042702 


000001 


41 006466 


106512 




42 006470 


032737 


000001 OOOOOOG 


43 006476 


001005 




44 006500 


042716 


000377 


45 006504 


050016 




46 006506 


106612 




47 006510 


000436 




48 006512 


042716 


1 77400 


49 006516 


000300 




50 006520 


050016 




51 006522 


106612 




52 006524 


000430 




53 






54 






55 






56 006526 


105737 


OOOOOOG 


57 006532 


001003 





. SBTTL STRVAL • — Store value into open cell 

STi^iVAL 15 called to store a value into the currently open cell. 

Inputs: 
RO = Value to store. 
D. IOC = Address ujh«?re to store value. 

D. LOOM = +l=Store into user's area* -l=Store into internal register. 
D. BYTM = 0=Word mode store* l=Byte mode store. 



STRVAL; MOV 
MOV 



R 1 , - ( SP ) 
R2, -(BP) 



Make sure a cell is open 



TSTB 
BEQ 



D. LOCM 
9* 



ils a cell open now? 
j Br if not 



Determine if we are storing into user's job or internal cell 



TSTB 
BMI 



D. LOCM 
1* 



Store into user's job 



TSTB 
BNE 



D. BYTM 
2* 



Store into word 



MOV 


RO, -<SP) 


MOV 


D. LOC, RO 


MTPD 


(RO) 


BR 


9* 



.: Internal or user jobT' 
* Br if internal cell 



;Byte or word mode? 
* Br if byte mode 



.: Put value on stack 

i Get address where we should store 

j Store into user's area 



Store into byte 



2*: 



3*: 



BIC 


#•-•0377, RO 




MOV 


D. LOC, R2 




B I C 


#1,R2 




MF'PD 


(R2) 




BIT 


#1,D. LOC 




BNE 


3* 




BIC 


#377, (SP.> 




BIS 


RO, <SP) 




MTPD 


<R2) 




BR 


9* 




BIC 


#177400, <SP) 




SWAB 


RO 




BIS 


RO, <SP) 




MTPD 


<R2) 




BR 


9* 





Clear high-order byte of value being stored 

Get address where we are to store 

Force address to be even 

Get current contents of word 

Even or odd byte? 

Br if odd byte 

Clear low-order byte of old value 

Put in new low-order byte 

Store new word 

j Clear high-order byte 

Get new value to high-order byte 
; Store new high -order byte 
; Store new word 



Store into internal register 



1$: 



TSTB 
BNE 



D. BYTM 
12* 



iByte or word mode? 
^ Br if byte mode 
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58 
59 
60 
c>l 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
SI 



StoT'P into woi-d 



006534 
006540 



006542 
006546 
006552 
006556 
006564 
006566 
006572 
006574 
006576 
006602 
006604 



006606 
006610 



010077 OOOOOOG 



82 006612 



042700 
013702 
042702 
032737 
001352 
042712 
050012 
000404 
042712 
000300 
050012 



012602 
012601 
000207 



MOV 
BR 



RO, i2>D. LOC 
9* 



Store into byte 



177400 
OOOOOOG 

000001 

000001 OOOOOOG 

000377 



177400 



12* 



13*: 



9$: 



: BIC 


#"C377, RO 


MOV 


D. LOC, R2 


BIC 


#1, R2 


BIT 


#1, D. LOC 


BNE 


3* 


BIC 


#377> (R2) 


BIB 


RO, <R2) 


BR 


9« 


: BIC 


#177400, <R2) 


SWAB 


RO 


BIS 


RO, <R2) 


F i n i & h 6? d 




MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





; Store into internal cell 



; Clear high-order byte of value being stored 

; Get address where we are to store 

i Force address to be even 

; Even or odd byte? 

j Br if odd byte 

; Clear low-order byte of old value 

; Put in new low-order byte 

J Clear high-order byte 

.: Get new value to high-order byte 

; Store new high-order byte 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006614 010246 



006616 



105737 0000000 
100426 



006624 
006630 



105737 
OOlOOij 



0000000 



006632 013700 0000000 

006636 106510 

006640 012600 

006642 000440 



006644 013702 0000000 

006650 042702 000001 

006654 106512 

006656 012600 

006660 032737 000001 

006666 001401 

006670 000300 

006672 042700 177400 

006676 000422 



. SBTTL GETVAL — Oc/t value from current cell 
GETVAL is called to get the value from the currently open cell, 



Inputs; 

D. LOC = Address of cell from which value is to be fetched. 

D. LOOM = +l = fetch from user's arBa> -l=Fetch from internal register. 

D. BYTM = 0=Word mode> l=Byte mode 

Outputs; 
RO = Value obtained 

GETVAL; MOV R2, -<SP) 

Determine if uje are fetching from user's job or internal cell 



TSTB 
BMI 



D. LOOM 
1* 



Fetch from user's job 



TSTB 
BWE 



D. BYTM 

2* 



Fetch from word 



MOV 


D. LOC, RO 


MFPD 


(RO) 


MOV 


(SP)+, RO 


BR 


9* 



Fetch from byte 



2*: 



OOOOOOG 



3*: 



MOV 


D. LOC, R2 


BIC 


#1,R2 


MFPD 


(R2) 


MOV 


(SP)+, RO 


BIT 


#1,0. LOC 


BEQ 


3* 


SWAB 


RO 


BIC 


#177400, RO 


BR 


9$ 



Fetch from internal recn&ter 



006700 105737 
006704 001003 



OOOOOOG 



1«: 



TSTB 
BNE 



D. BYTM 
12* 



Fetch from word 



006706 017700 OOOOOOG 
006712 000414 



006714 013702 OOOOOOG 
006720 042702 000001 



MOV 
BR 



@D. LOC, RO 
9* 



Fetch from byte 



12*; 



MOV 

BIC 



D. LOC, R2 
#1,R2 



j Internal or user jobT' 
; Br if internal cell 



;Byte or word mode?" 
i Br if byte mode 



Get address of value wanted 
Get value from user's area 
Return in RO 



Get address of word 

Force address to be even 

Get current contents of word 

Get word value to RO 

Even or odd byte? 

Br if low-order byte wanted 

Swap bytes if high-order byte wanted 

Clear high-order byte 



;Byte or word mode? 
; Br if byte mode 



Get the value 



i Get address where we are to fetch 
; Force address to be even 
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58 006724 


011200 




59 006726 


032737 


000001 OOOOOOG 


60 006734 


001401 




61 006736 


000300 




62 006740 


042700 


177400 


63 






64 






615 






66 006744 


012602 




67 006746 


000207 
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13* 



9$: 



MOV 


<R2>,R0 


BIT 


#1.D. LOC 


BE« 


13* 


SWAB 


RO 


: BIC 


#177400, RO 


F i ri i B h e d 




MOV 


< SP ) +, R2 


RETURN 





i Get the word value 

; Even or odd byte?" 

; Br if even byte wanted 

i Smap high-order byte to loui-order 

;Clear high-order byte 
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. SBTTL SHOLOC 



Di&play current address 



3 








4 








5 








6 








7 








S 








9 








10 








11 


006750 


010146 




12 


006752 


010246 




13 


006754 


010346 




14 


006756 


010446 




15 








16 








17 








IS 


006760 


105737 


0000000 


19 


006764 


002405 




20 








21 








22 








23 


006766 


013700 


OOOOOOG 


24 


006772 


004737 


007146' 


25 


006776 


000456 




26 








27 








28 








29 


007000 


013700 


0000000 


30 


007004 


012701 


000400 ' 


31 


007010 


012702 


177777 


32 


007014 


005003 




33 


007016 


020011 




34 


007020 


103406 




35 


007022 


010004 




36 


007024 


161104 




37 


007026 


020402 




38 


007030 


101002 




39 


007032 


010402 




40 


007034 


010103 




41 


007036 


062701 


000002 


42 


007042 


020127 


000432 ' 


43 


007046 


103763 




44 








45 








46 








47 


007050 


162703 


000400 ' 


48 


007054 


006203 




49 


007056 






50 


007066 


005237 


OOOOOOG 


51 


007072 


116300 


000362 ' 


52 


007076 






53 


007102 


005237 


OOOOOOG 


54 








55 








56 








57 


007106 


005702 





Display address of currently open cell. 

The address may be either in the user's program space 

or may be the address of an internal register <'*x). 



Inputs: 
D. LOC = Address to be displayed 
D. LOCM = Mode of address < + i==5>In user's program* 



■l==>Internal cell) 



3H0L0C : MOV 
MOV 
MOV 

MOV 



Rl, -(SP) 
R2, -(SP> 
R3, -(SP) 
R4, -<SP) 



Determine if this is an internal or external cell 



TSTB 
BLT 



D. LOCM 

1* 



; Internal or external address? 
; Br if internal address 



Display address of cell in user's program 



MOV 


D. LOC, RO 


CALL 


LSTADR 


BR 


9« 



; Get address to be displayed 

J Display relative to relocation base 



Display name of internal cell 



!•$: 



MOV D, LOC, RO 

MOV #INTADR,R1 

MOV #-l,R2 

CLR R3 

2*: CMP RO, (Rl) 

BLO 3* 

MOV RO, R4 

SUB <R1),R4 

CMP R4, R2 

BHI 3* 

MOV R4, R2 

MOV R1,R3 

ADD #2, Rl 

CMP Rl,# INTEND 

BLO 2« 

Display register name 



3*: 



SUB 

ASR 

. TTYDUT 

INC 

MOVB 

. TTYOUT 

INC 



# I NT ADR, R 3 

R3 

#'* 

D. PCOL 

INTCHR<R3),R0 



D. PCOL 

Display offset from register 
TST R2 



i Get address of internal cell 

iPoint to table of addresses of cells 

:• Init for search 

Is address beloui base of this cell? 

Br if yes 

Get address of interest 

Determine distance from cell base addr 

Is this the closest we've seen so far? 

Br if not 

Remember offset from nearest cell 

Remember address of nearest cell 

Point to address of next cell 

Checked all cells?" 

Loop if not 



Get offset into address table 

Convert to byte table index 

Print "$" 

Advance print column 

Get name of internal register 

F*rint register name 

Advance print column 



; Any offset from base of cell? 
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53 007110 001411 
59 



60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



007126 
007130 



007134 
007136 
007140 
007142 
007144 



005237 
010200 
004737 



012604 
012603 
012602 
012601 
000207 



0000000 



00577c 



9^: 



BEG 


9* 


. TTYOUT 


#' + 


INC 


D. PCOL 


MOV 


R2, RO 


CALL 


PRTOCT 


F i n i shed 




MOV 


( SP ) +, H4 


MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 


MOV 


<SP)+,R1 


RETURN 





; Br if not 

; Print "+" 

; Advance print column 

i Get offset value 

(Print octal value for 



offset 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 

26 
27 
28 
29 



007146 



007146 032737 0000000 OOOOOOG 
007154 001003 



007 1 56 004737 0071 72 ' 
007162 000402 



007164 004737 005772' 



007170 000207 



. SBTTL LBTADR — Display address in user's program 

LSTADR is called to display an address in the user's program. 
LSTADR functions the same as SHOADR except that LSTADR checks the 
DP*LAA flag in the *F format register. If the DP*LAA flag is cleared 
the address is displayed in relative form; if it is set* it is displayed 
in absolute form. 

I n p u 1 15 : 
RO - Address to be d i Bpiaiyed. 

STADR : 

See if DP$LAA is set in *F register 

BIT #DP«LAA, D. PFNT i Absolute addresses wanted? 
BNE 1* ; Br if yes 

Display address with relocation base 



CALL 
BR 



SHOADR 
9* 



Display absolute address 
1*: CALL PRTOCT 

F i n i & h G d 
9^: RETURN 



j Display address with relocation base 



j Display absolute address 
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5 








6 

7 








S 








9 








10 


007172 


010146 




11 


007174 


010246 




12 


007176 


010346 




13 


007200 


010446 




14 








15 








16 








17 


007202 


010004 




IS 


007204 


004737 


007262 ' 


19 


007210 


103414 




20 








21 








22 








23 


007212 


166304 


0000000 


2^1 


007216 


010300 




25 


007220 


006200 




26 


007222 


004737 


005772 ' 


27 


007226 






28 


007236 


005237 


0000000 


29 








30 








31 








32 


007242 


010400 




33 


007244 


004737 


005772' 


34 








35 








36 








37 


007250 


012604 




38 


007252 


012603 




39 


007254 


012602 




40 


007256 


012601 




41 


007260 


000207 





. SBTTL SHOADR — Di&play address in user's program 

SHOADR is called to display an address in the user's program. 

A check is made to determine which relocation register the address 

is relative to and if any> the address is printed as "r> o". 

I n p u t G : 
RO - Address to d i s p 1 a y . 



3H0ADR : MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, - < SP ) 
R3, -iSP) 
R4, -<SP) 



Determine if address is relative to a relocation register 



MOV 


RO, R4 


CALL 


RELADR 


BCS 


4* 



; Save original address 

; Determine if addr is relative to reloc regn 

; Br if not 



Print relocation register number 



SUB 


D. RLBS<R3),R4 


MOV 


R3, RO 


ASH 


RO 


CALL 


PRTOCT 


. TTYOUT 


#54 


INC 


D. POOL 



Print offset within region 



4*: 



MOV 


R4, RO 


CALL 


PRTOCT 


~ i n i & h e d 




MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





^Compute offset within the region 

; Get register index 

i Convert index to number 

i Print register number 

; Print ", " 

; Advance print column 



i Get offset within region 
; Print the value 



€ 
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3 








4 








5 








6 








7 








8 








9 








10 








U 








12 








13 








14 


007262 


010146 




15 


007264 


010246 




16 


007266 


010446 




17 








18 








19 








20 


007270 


005001 




21 


007272 


012702 


177777 


22 


007276 


010203 




23 


007300 


005761 


0000000 


24 


007304 


00141;' 




25 


007306 


020061 


0000000 


26 


007312 


103407 




27 


007314 


010004 




28 


007316 


166104 


OOOOOOG 


29 


007322 


020402 




30 


007324 


101002 




31 


007326 


010402 




32 


007330 


010103 




33 


007332 


062701 


000002 


34 


007336 


020127 


000016 


35 


007342 


101756 




36 








37 








38 








39 


007344 


005703 




40 


007346 


002002 




41 


007350 


000261 




42 


007352 


000401 




43 


007354 


000241 




44 








45 








46 








47 


007356 


012604 




48 


007360 


012602 




49 


007362 


012601 




50 


007364 


000207 





. SBTTL RELADR — Determine if address is in relocation region 

RELADR is called to determine if an address is within a relocation 
region. 

I n ft u t B : 
RO - Address to be chet ked. 

Outputs: 
C-flag cleared ==> Address is within a relocation region. 
C-flag set ==> Address is not within a relocation region. 
R3 = Index to relocation region to be used with address. 



RELADR: MOV 



MOV 



R 1 .. - ( SP ) 
R2, -<SP) 
R4, -<SP) 



Search for relocatioji region defined below the address 



2$: 



3*: 



CLR 


Rl 


MOV 


#~1, R2 


MOV 


R2, R3 


TST 


D. RLBS(Rl) 


YiEQ 


3* 


CMP 


RO, D. RLBS(Rl) 


BLO 


3* 


MOV 


RO, R4 


SUB 


D. RLBS<R1)>R4 


CMP 


R4, R2 


BHl 


3* 


MOV 


R4, R2 


MOV 


Rl, R3 


ADD 


#2, Rl 


CMP 


Rl, #14. 


BLOS 


2* 



Init relocation register index 
Init closest offset value 
Say no relocation base found yet 
Is this relocation register in use? 
Br if not 

Is address above this relocation base? 
Br if not 

Get address of interest 
Calculate offset within region 
Is this the closest one so far? 
Br if not 

Remher smallest offset 
Remember relocation register index 
Advance relocation register index 
Checked all relocation registers? 
i Br if not 



See if we found a relocation region 



>*: 



9$: 



TST 


R3 


BGE 


5* 


SEC 




BR 


9* 


CLC 




F" i J 1 i s h e d 




MOV 


<SP)-+-, R4 


MOV 


(SP)+, R2 


MOV 


( SP ) +, R .1 


RETURN 





;Did we find a relocation region 

• Br if yes 

i Say no region found 

; Say a region was found 
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. SBTTL DOPRT 



Print a text string 



3 

4 








5 








6 








7 








S 








9 


007366 


010146 




10 


007370 


010246 




11 








12 








13 








14 


007372 


010002 




15 


007374 


113701 


OOOOOOG 


16 








17 








18 








19 


007400 


1 1 2200 




20 


007402 


001411 , 




21 


007404 


120027 


000200 


22 


007410 


001422 




23 


007412 






24 


007420 


005237 


OOOOOOG 


25 


007424 


000765 




26 








27 








2S 








29 


007426 


012700 


000015 


30 


007432 






31 


007440 


012700 


000012 


32 


007444 






33 


007452 


005037 


OOOOOOG 


34 








35 








36 








37 


007456 


012602 




38 


007460 


012601 




39 


007462 


000207 





DOPf^T is called to print a text string. 

It directly calls routines in TSTTY to print each character. 



I n p u t B : 
RO = Pointer to bblI?. strinq. 



DOPRT: 



MOV 
MOV 



R 1 > - < SP ) 
R2, -<SP) 



Set up pointer to start of string 



MOV 
MOVB 



RO, R2 
C0RUSR>R1 



; Get pointer to start of string 
; Get current job index number 



Get each char out of the string and print it 



MOVB 


<R2)+.. RO 


BEG 


2* 


CMPB 


RO, #200 


BEG 


9* 


OCALL 


PUTCHR 


INC 


D. POOL 


BR 


1* 



Get next char from string 
Br if hit null at end 
Is string terminated with a 200? 
Br if yes 

Print the character- 
Advance print column 
Loop to print rest of string 



2*: 



Print Carriage-return Line-feed at end of string 



i Get carriage return 

; Print it 

; Get 1 ine feed 

> Print it 

i Say uie are back to column 1 



7-*: 



MOV 


#CR,RO 


OCALL 


PUTCHR 


MOV 


#LF, RO 


OCALL 


PUTCHR 


CLR 


D. PCOL 


F- i ?i i fe h e d 




MOV 


(SP>+, R2 


MOV 


(SP)+, Rl 


RETURN 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



007464 012700 000002' 
007470 104375 
007472 000207 



007474 012700 000004' 
007500 104375 
007502 000207 



. SBTTL DBODN ■ — Place terminal in debug mode 

DBGON is called to place the terminal in debug mode. 

DBGON: MOV #ONEMT, RO 
EMT 375 
RETURN 

. SBTTL DBGOFF — Turn off terminal debug mode 

DBOOFF is called to take the terminal out of debug mode 



DBGOFF: MOV 
EMT 
RETURN 



#OFFEMT, RO 
375 



007504 000241 
007506 000207 



.SBTTL CHKADR — Determine if address is valid 

CHKADR is called to determine if an address is within the 
range of the user's propr-am space. 

Inputs: 
RO = Address to be checked. 

Outputs: 
C -flag cleared =-> address is ok 
C -f lag set ==> address is invalid 

CHKADR: CLC 

RETURN 



€ 
€ 
€ 



TSDBUG 
DECODE 



— TSX-Plus debutiging mo MACRO V05. 04 Monday 21~Dec-S7 OB: 42 Page 45 
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4 
5 
6 
7 
S 
9 
10 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3Q 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007510 010146 

007512 010246 

007514 01.0346 

007516 010446 

007520 010546 



007522 012737 000002 OOOOOOG 



007530 
007542 



00503: 



OOOOOOG 



007546 106521 
007550 012602 



007552 012704 011764 

007556 010203 

007560 046403 000000 

007564 020364 000002 

007570 001411 

007572 116400 000005 

007576 005200 

007600 042700 000001 

007604 062700 000006 

007610 060004 

007612 000761 



SBTTL DECODE — Decode instruction into symbolic form 



DECODFi is called to decode an instruction word into its symbolic form. 
The symbolic form of the instruction is displayed on the console. 

Inputs: 
Fil = Address of instruction to be decoded. 

Outputs: 
D. JLPIN •■= Length (in bytes) of decoded instruction and operands. 



DECODE: 


MOV 


R 1 , - < SP ) 




MOV 


R2, -<SP) 




MOV 


R3, ~<bP) 




MOV 


R4, -<SP) 




MOV 


R5, ~(SP) 



Initialize instruction length to 2 bytes 

MOV #2> D. ILEW i Say base instruction length 
Initialize column counter for decoded instruction display 



2 bytes 



PRINT < > 
CLR D. PCOL 

Fetch the instruction word 



MFPD 
MOV 



(Rl ) + 

(SP)+, R2 



; First print a few spaces 
i Say we are at column 1 now 



j Get the instruction from user's space 
; Get instruction off of stack 



1*: 



007614 116403 000005 

007620 060337 OOOOOOG 

007624 0104013 

007626 062705 000006 

007632 112500 

007634 

007640 077304 



*: 



Search the instruction list for this instruction 

; Point to base of instruction decode table 

i Get instruction to be decoded 

i Clear operand fields in instruction 

ils this the instruction? 

i Br if found the instruction 

; Get length of ascii name string 

> Bound up to word boundary 

iAdd size of base portion of block 
iPoint to next instruction decode block 
; Continue searching for the instruction 

We have found the instruct :i on in the instruction decode table. 
R4 ~ Address of instruction decode block. 
Display the symbolic name of the instruction. 

iGet length of instruction mnemonic 

; Advance column counter 

; Point to the mnemonic ascii string 



MOV 


#INSBAS. R4 


MOV 


R2, R3 


BIC 


IB*MSK<R4),R3 


CMP 


R3, IB$VAL<R'n 


BEQ 


5* 


MOVE 


IB*LEN(R4)» RO 


IMC 


RO 


BIC 


#1, RO 


ADD 


#IB*NAM, RO 


ADD 


RO, R4 


BR 


1« 



6$: 



MOVE 


IB*LEN(R4>>R3 


ADD 


R3, D. PCOL 


MOV 


R4, R5 


ADD 


#IB*NAM, R5 


MOVE 


<R5)+,R0 


. TTYOUT 




SOB 


R3. 6* 



i Get next char of mnemonic 

; Print the character 

J Loop if more chars to print 



TSDBUG 
DECODE 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 



007642 016400 000000 
007646 005100 
007650 040002 



007652 116400 000004 
007656 004770 014200' 



007662 
007664 
007666 
007670 
007672 
007674 



012605 
012604 
012603 
1 2602 
012601 
000207 



Nou) mask out the instruction code from the instruction word leaving 
only the operand fieltib. 



MOV 1B*MSK(R4), RO 
COM RO 
BIC RO, R2 



> Get mask value 

; Complement it to leave the operand fields 

> Mask out all but the operand fields 



Wow call appropriate routine to display the operand values for 
this instruction. 

Rl = Address of word past instruction. 

R2 = Operand field values (instruction word with instruction code masked) 

; Get the operand type code for this inst 
iCall appropriate operand display routine 



MOVE 


IB$TYP<R4), RO 


CALL 


eTYPVEC<RO) 


-inished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





1 

4 
I 

i 



€ 
€ 



TSDBUG 
ODC XXX 



3 
4 
5 
A 
7 
8 
9 
iO 
11 
12 
13 
14 
15 
16 
17 
IS 
17 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
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— Display instruction operands 

. BBTTL DDCxxx — Display inctruction operands 
; TVPl — Instruction hat:- no operands. 
007676 000207 - ODCl: f?ETURN 






007700 



007700 012700 000010 
007704 004737 011734' 



007710 010200 

007712 004737 010650' 



007716 000207 



007720 



007720 012700 000010 
007724 004737 011734' 



007730 010200 

007732 004737 011342' 

007736 000207 



TYF2 — Operand has a single general operand. 
ODC 2: 

Tab over to operand field 



MOV #COLOPN, RO 
CALL ODC TAB 

Display the operand 



MOV 
CALL 

F- i n i s h E' d 

RETURN 



R2, RO 
ODCGEN 



; Oet operand column number 
i Tab over to operand field 



.: Oet the operand code 
; Display general operand 



TYP3 -- Single register cperand. 
ODC 3: 

Tab over to the operand field 



MOV #COLOPN, RO 

CALL ODC TAB 

Display the register 

MOV R2. RO 

CALL ODCREG 
RETURN 



; Get operand column number 
i Tab over to operand field 



; Get the register number 
iDisplay the register number 



TSDBUG - 


.... TSX-P 


1 u s debt. 


tiging mo 


UDC XXX - 

1 
2 
3 


— Displ 


ay instruction o 








4 


007740 






5 








6 








7 








8 


007740 


012700 


000010 


9 


007744 


004737 


011734' 


10 








11 








12 








13 


007750 


010200 




14 


007752 


004737 


005772' 


15 








16 








17 








IS 


007756 


000207 




19 








20 








21 








22 








23 


007760 






24 








25 








26 








27 


007760 


032702 


000001 


28 


007764 


001404 




29 


007766 






30 


007776 


032702 


000002 


31 


010002 


001404 




32 


010004 






33 


010014 


032702 


000004 


34 


010020 


001404 




35 


010022 






36 


010032 


032702 


000010 


37 


010036 


001404 




38 


010040 






39 








40 








41 








42 


010050 


005237 


OOOOOOG 


43 


010054 


000207 





TV'1'4 "- 4-bit absolute numeric operand 
0DC4: 

Tab over to the operand field 



MOV #COLOPN, RO 

CALL ODCTAB 

Displatj the value 

MOV R2, RO 

CALL PRTOCT 

Finished 

RETURN 



i Get operand column number 
; Tab over to operand field 



; Get value to display 
> Print the value 



'TYl"5 — Condition code modification instruction 
0DC5: 

Determine which condition code is affected 



.'*: 



3$: 



BIT #1,R2 
BEQ 1* 
. TTYOUT #'C 
BIT #2, R2 
BEO 2* 
. TTYOUT #'V 
BIT #4,R2 
BEQ 3* 
. TTYOUT # ' Z 
BIT #10, R2 
BEQ 4* 

. TTYOUT #'N 



; C-~f lag? 
; Br if not 

; V-f lag? 
■f Bt if not 

i 2-f lag? 
J Br if not 

; N-flag? 
i Br if not 



Finished 

4*: liMC D. PCOL 
RETURN 



i Advance column number 



TSDBUG ■ 


— TSX-PluB debugging mo 


DDC XXX ■ 

J 
2 
3 


— Displ 


ay instruction o 








4 


010056 






5 








6 








7 








8 


010056 


012700 


000010 


9 


010062 


004737 


011734' 


10 








U 








12 








13 


010066 


010200 




14 


010070 


042700 


1 77400 


15 


010074 


032700 


000200 


16 


010100 


001402 




17 


010102 


052700 


177400 


IS 


010106 


006300 




19 


010110 


060100 




20 


010112 


004737 


011570' 


21 








22 








23 








24 


010116 


000207 




25 








26 








27 








28 








29 


010120 






30 








31 








32 








33 


010120 


012700 


000010 


34 


010124 


004737 


011734' 


35 








36 








37 








38 


010130 


010200 




39 


010132 


072027 


177772 


40 


010136 


004737 


011342' 


41 


010142 






42 


010152 


005237 


OOOOOOG 


43 








44 








45 








46 


010156 


010200 




47 


010160 


004737 


010650' 


4B 








49 








50 








51 


010164 


000207 





c 



TYP6 — Branch offset opeTand 
0DC6: 

Tab over to the opprr3nd PiGld 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the branch target 



1'$: 



MOV 


R2, RO 


BIG 


# •■■C377, RO 


HIT 


#200, RO 


BEQ 


1* 


BIS 


#177400, RO 


ASL 


RO 


ADD 


Rl, RO 


CALL 


ODCADR 


f- i n i B h e d 




RETURN 





; Oet operand column number 
i Tab over to operand field 



Get instruction word 

Leave only branch offset 

Is offset negative? 

Br if not 

Sign extend the offset 

Convert word offset to byte offset 

Add current PC address 

Display the address 



TYP7 — Register and general destination. 
0DC7: 

Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the register 

MOV R2, RO 
ASH #-6, RO 
CALL ODCREG 
. TTYOUT #COMMA 
IMC D. PCOL 



; Get operand column number 
; Tab over to operand field 



i Get instruction word 

i Right justify the register value 

; Display the register name 

iDispiay ", " 

i Inc column counter 



Display the destination address 



MOV 


R2, RO 


CALL 


ODCGEN 


F-ijiiBhed 




RETURN 





j Get the destination address descriptor 
jDispiay the address 



TSDBUG - 


— TSX~F 


1 u s d e i3 1.1 


gging mo 


ODCxxx - 

1 


-~ Disp) 


r3y instruction o 


2 
3 
4 


010166 






O 

6 








7 








S 


010166 


012700 


000010 


9 


010172 


004737 


011734' 


10 








U 








.12 








13 


010176 


010200 




14 


010200 


004737 


010650' 


15 


010204 






16 


010214 


005237 


ooooooe 


17 








IS 








19 








20 


010220 


010200 




21 


010222 


072027 


177772 


22 


010226 


004737 


011342' 


23 








24 








25 








26 


010232 


000207 





i TYFS — Register destination and general source operand <SS> R) 

0DC8: 

i Tab over to the opprand field 



MOV #COLOPi\|, RO 

CALL ODCTAB 

Display the source item 

MOV R2> RO 

CALL ODCGEN 
. TTYOUT #COMMA 

INC D. PCOL 



; Get operand column number 
i Tab over to operand field 



> Get the source operand code 

; Di splay it 

i Display ", " 

; Advance column counter 



Display the register destination 



MOV 


R2, RO 


ASH 


#-6, RO 


CALL 


ODCREG 


F i n i s h e d 




RETURN 





i Get the register number 
i Right justify 
^Display the register 



TSDBUG 
ODC X X X 



— TSX-Plus debugging mo MACRO V05. 04 Monday 21-Dec-S7 08:42 Pagt 50 

— Display instruction operands 



i 



1 

2 
3 
4 
5 
& 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 



010234 



010234 
010240 



010244 
010246 
010252 
010256 



010266 
010270 



012700 
004737 



000010 
011734' 



010200 

072027 177772 

004737 010650' 



010200 
004737 



010650' 



TYP9 ■ - Two general operands 

0DC9: 

Tab over to the operand {'ie'ld 



iiOV #COLOPN, RO 

CALL ODCTAB 

Display the source operarid 

MOV R2, RO 

ASH #~6, RO 

CALL ODCGEN 
. TTYOUT #COMMA 



j Oet operand column number 
; Tab over to operand field 



.: Get instruction word 

J Right justify the source item 

; Display source item 

; Print a comma 



Display the destination operand 



010274 000207 



MOV 


R2, RO 


CALL 


ODCGEN 


"inisihed 




RETURN 





j Get destination item code 
; Display destination item 



TSDBUG --- TSX-Plus debugging mo MACRO V05. 04 
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Monday 21-Dec-87 OB; 4P Page 5.1 



i 
2 
3 

4 010276 
5 

6 
7 

5 03 
9 03 

10 
11 
12 

13 

14 

15 

16 

17 
18 
19 
20 



H0276 
110302 



10306 
10310 
10314 
10320 
10330 



10334 
10340 
10342 
10344 
10346 



012700 
004737 



010200 
072027 
004737 



042702 
010100 
006302 
160200 
004737 



23 
24 
25 
26 
27 
28 
29 010352 000207 



000010 
011734' 



177772 

011342' 



005237 OOOOOOG 



1 77700 



011570' 



f 

c 



; TYPIO ~- SOB instruction 

ODCiO: 

; Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the register number 

MOV R2, RO 
ASH #-6, RO 
CALL ODCREG 
. TTYOUT ttCOMMA 
INC D. POOL 



; Get operand column number 
J Tab over to operand field 



; Get instruction word 

; Right justify register number 

; Display the register name 

; Print comma 

J Advance column number 



Display the destination address 



BIC 


#'^C77, R2 


MOV 


Rl, RO 


ASL 


R2 


SUB 


R2, RO 


CALL 


ODCADR 


f- i n i s h e d 




RETURN 





;Mask out all but branch offset 
> Get the current PC address 
;Get 2* offset 
; Get destination address 
;Display the address 



TSDBUG - 
ODCxxx - 

.1. 
2 
3 
4 
5 
6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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010354 



010354 012700 000010 
010360 004737 011734' 



010364 010200 

010366 042700 177400 

010372 004737 005772' 



010376 000207 



010400 



010400 012700 000010 
010404 004737 011734' 



010410 010200 

010412 004737 011542' 



010416 000207 



010420 



010420 012700 000010 
010424 004737 011734' 



010430 010200 

010432 004737 011542' 

010436 

010446 005237 OOOOOOG 



TYPll — EMT and TRAP in&tructions 
ODC 1 1 : 

Tab over to the operand field 



MOV #COLOPN, RO 
CALL ODCTAB 

Display the argument value 



MOV 


R2, RO 


BIC 


#-X377, RO 


CALL 


PRTOCT 


Finished 




RETURN 





; Get operand column number 
; Tab over to operand field 



i Get instruction word 

;Mask out all but operand value 

jPrint octal value 



TYP12 — Single floating-point operand 
ODC 12: 

Tab over to the operand fit'ld 



MOV ttCOLOPN, RO 
CALL ODCTAB 



.; Get operand column number 
i Tab over to operand field 



Display the floating point operand 



MOV R2, RO 
CALL ODCFPU 



> Get operand code 

/Display general FPU operand 



F i n i s h (? d 

RETURN 



TYP13 — Floating accumulator and floating source operand. 
ODC 13: 

Tab over to the operand field 



MOV #COLCPN, RO 

CALL ODCTAB 

Display the source operand 

MOV R2, RO 

CALL ODCFPU 
. TTYOUT #COMMA 

INC D. POOL 



; Get operand column number 
; Tab over to operand field 



i Get instruction word 

J Display the source operand 

> Di sp lay comma 

; Advance column number 



; Display the accumulator number 
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58 

59 010452 010200 

60 010454 072027 177772 

61 010460 004737 011470' 
62 

63 
64 
65 010464 000207 



MOV 


R2, RO 


ASH 


#-6, RO 


CALL 


ODCACC 


F i ri i B li e d 




RETURN 





i Get accumulator number 

; Right justify 

/Display the accumulator number 



TSDBUG - 


— TSa-P 


lus debuciging mo 


ODCxxx - 

1 


--• Displ 


ay instruction o 


2 
3 
4 


010466 






5 








6 








7 








8 


010466 


012700 


000010 


9 


010472 


004737 


011734' 


10 








11 








12 








13 


010476 


010200 




14 


010500 


004737 


010650' 


15 


010504 






16 


010514 


005237 


OOOOOOG 


17 








18 








19 








20 


010520 


010200 




21 


010522 


072027 


177772 


22 


010526 


004737 


011470' 


23 








24 








25 








26 


010532 


000207 





i TYP14 --"• Floating accumulator and general source operand. 

j 

0DCi4: 

i Tab over to the operand field 



MOV #COLOPN. RO 

CALL ODCTAB 

Display the source operand 

MOV R2, RO 

CALL ODCGEN 
. TTYOUT #COMMA 

INC D. PCOL 



i Get operand column number 
; Tab over to operand field 



; Get instruction word 

; Display the source operand 

i Disp lay comma 

j Advance column number 



Display the accumulator number 



MOV 


R2, RO 


ASH 


#-6. RO 


CALL 


ODCACC 


Finished 




RETURN 





j Get accumulator number 

.: Right justify 

; Display the accumulator number 



TSDBUO - 
ODCxxx - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 
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— Display instruction operandB 



010534 



010534 
010540 



010544 
010546 
010552 
010556 
010566 



010572 
010574 



012700 000010 
004737 011734' 



010200 

072027 177772 

004737 011470' 

005237 OOOOOOG 



010200 

004737 011542' 



Floating accumulator and floating destination operand. 



■> TYPiS ~ 

0DC15; 

> Tab over to the operand field 



MOV 
CALL 



#COLOPN, RO 
ODCTAB 



; Get operand column number 
i Tab over to operand field 



Display the floatinq accumulator 



MOV R2, RO 
ASH #-6, RO 
CALL DDCACC 
. TTYOUT #COMMA 
INC D. PCOL 



iOet the accumulator number 

iRight justify 

; Display the accumulator 

; Di sp lay comma 

; Advance column number 



Display the floating destination 



010600 000207 



MOV 


R2, RO 


CALL 


ODCFPU 


f^itii Bhed 




RETURN 





j Get the destination operand code 
i Di sp lay it 



TSDBUG 
ODC XXX 
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c 

c 



1 

2 
3 
4 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 



01060* 



010602 
010606 



010612 
010614 
010620 
010624 
010634 



010640 
010642 



012700 000010 
004737 011734' 



010200 

072027 177772 

004737 011470' 

005237 0000000 



010200 

004737 010650' 



TYP16 — Floating accumulator and general destination operand. 
ODC 16: 

Tab ovf?r to the operand field 



MOV #COLOPN, RO 
CALL DDCTAB 



> Get operand column number 
; Tab over to operand field 



Display the floating accumulator 



MOV R2, RO 
ASH #-6, RO 
CALL ODC AC C 
. TTYOUT #CDMMA 
IMC D. POOL 

Display the destination 



010646 000207 



MOV 
CALL 

F i n i s b e d 

RETURN 



R2, RO 
ODC GEN 



Get the accumulator number 

Right justify 

Display the accumulator 

Display comma 

Advance column number 



; Get the destination operand code 
j Di sp lay it 



TSDBUG ■ 
ODCGEN - 

1 

2 

3 

4 

5 

h 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

SO 

21 

22 

23 

24 

25 

26 

27 

29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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010650 010246 
010652 010346 



010654 01000r> 

010656 072227 17/776 

010662 042702 177761 



010666 010003 

010670 042703 177770 

010674 020327 000007 

010700 001003 



010702 004772 011322' 
1 0706 000402 



010710 004772 011302' 



010714 012603 
010716 012602 
010720 000207 



SBTTL ODCGEN — Display general operand value 



ODCGEN is called during instruction decoding to display a general 
operand of any mode. 

I n p u t B : 
RO = Operand value from instruction. 
F'fl ~ Address of uord following instruction. 

Outputs: 
Rl is incremented if the addressing mode uses a value in memory that 

follows the instruction. 



ODCGEN: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Get the addressing mode 



MOV 
ASH 
13 .TC 



RO, R2 
#-2, R2 
#-C16>R2 



> Right justify 2* mode 

; Mask out all but 2«- mode 



Determine if the register is R7 or is in the range RO to R6. 

Get mode and register value 
Mask out all but register number 
Is register R77-' 



Addressing mode is re.(ative to R7. 

Call display routine based on the addressing mode. 
RO and R3 contain the mode and register number. 



MOV 


RO, R3 


J3IC 


#-C7, R3 


CMP 


R3, #7 


BNE 


1* 



CALL @AD7VEC(R2) 

.BR 9* 



iCall the processing routine 



Jump to processing routine based on the mode 
1$: CALL @ADRVEC<R2> ; Jump to processing routine 

F i n i B h e d 
9$: 



Mt;)V 
MOV 
RETURN 



(SP)+, R3 
< SP ) +, R2 



4 
4 
I 
( 



TSDBUG - 
ODCeEN - 

.1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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01 
01 



01 
01 
01 
01 
01 
01 



01 
01 
01 



01 
01 
01 
01 
01 



01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 



0726 



0730 
0732 
0742 
0744 
0750 
0760 



0762 
0766 
0776 



1000 
1002 
1012 
1014 
1020 



1022 
1024 
1034 
1036 
1042 



1044 
1046 
1056 
1066 
1070 
1074 



01 
01 
01 
01 
01 
01 
01 



1076 
1100 
1102 
1110 
1112 
1116 
1120 



004737 
000207 



010046 

012600 
004737 

00020/ 



004737 
000207 

010046 

012600 
004737 
000207 

010046 

012600 
004737 
000207 

010046 



012600 
004737 
000207 



010046 
106521 
062737 
012600 
004737 
012600 
004737 



011342' 



011342' 



010730' 



010762' 



010730' 



010730' 



Display routines for registers f?0 through R6 
Mode O — R 



ADRMDO: CALL ODCREG 
RETURN 



Mode 1 



(R) 



ADRMDl : MOV RO, - < SP ) 

. TTYOUT # ' ( 

MOV <SP)+, RO 

CALL ODCREG 

. TTYOUT # ' ) 
RETURN 

Mode 2 — (R)+ 

ADRMD2: CALL ADRMDl 
. TTYOUT #'+ 
RETURN 



Mode 3 



@ < R ) + 



ADRMD3: MOV RO, -<SP) 

. TTYOUT #'@ 

MOV <SP)+, RO 

CALL ADRMD2 
RETURN 



Mode 4 — 



■<R) 



ADRMD4 : MOV RO, ~ ( SP ) 
. TTYOUT #'- 
MOV < SP ) +, RO 
CALL ADRMDl 
RETURN 

Mode 5 — O-CR) 

ADRMD5 : MOV RO, - ( SP ) 

. TTYOUT #'© 

. TTYOUT #'~ 

MOV (SP)+, RO 

CALL ADRMDl 
RETURN 



000002 

011570' 

010730' 



Mode 6 



ADRMD6: MOV 
MFPD 
0000000 ADD 

MOV 
CALL 
MOV 
CALL 



X<R) 



RO, -(SP) 

< R 1 ) •+• 

#2, D. ILEN 

(SP)+, RO 

DDCADR 

(SP)+, RO 

ADRMDl 



; Display register 



j Save the register number 
i Open paren 

j Recover the register number 
; Display the register number 
; Close par-en 



i Print "(r )" 

j Put in trailing plus sign 



i Save the register number 
; Print "&" 

.: Recover the register number 
i Print "(r)+" 



> Save the register number 
i Print "-" 

i Recover the register number 
; Print "<r)" 



J Save the register number 
; Print "§-" 

j Recover register number 
; Print "<r)" 



Save the register number 

Get the vector base address 

Say instruction uses 2 more bytes 

Get value to RO 

Display the address 

Recover the register number 

Print "(r)" 



TSDBUG 
DDCGEN 
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59 
59 
60 
61 
62 
63 
64 
65 
66 



011124 000207 



011126 
011130 
011140 
011142 
011146 



010046 

012600 
004737 
000207 



011076' 



RETURN 

Mode 7 — @X(R) 

ADRMD7: MOV RO, ~<SP) 

. TTYOUT #'@ 

MOV < SP ) +, RO 

CALL ADRMD6 
RETURN 



; Save register number 
i Print "@" 

j Recover register number 
; Print "x(r)" 



I 
< 
I 
I 

i 

< 
i 
t 
i 

i 
i 

€ 
€ 



TSDBUG - 
ODCGEN - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
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01 
01 
01 
01 
01 
01 
01 
01 



1150 
1160 
1162 
1170 
1172 
1176 
1200 
1204 



1206 
1216 



01 

01 

01 

01 

01 

011240 

011244 



1230 
lc36 



01 
01 
01 
01 
01 
01 



01 
01 



1246 
1250 
1256 
1260 
1262 
1266 



1270 
1300 



106521 
062737 
012600 
004737 
103002 
004737 
000207 



106521 
062737 
012600 
004737 
000207 



106521 
062737 
012600 
060100 
004737 
000207 



Display routines for the various modes iitith R7. 



Mode 
AD7MD2: 



2 — #n 

. TTYOUT #'# 
MFPD (Rl)+ 



000002 
011672' 
005772 ' 



OOOOOOG 



9$: 



ADD 

MOV 

CALL 

BCC 

CALL 

RETURN 



#2, D. I LEW 
< SP ) +.. RO 
ODCNEO 
9* 
PRTOCT 



Mode 3 



@#addrB55 



000002 
011570 



OOOOOOG 



AD7MD3: . TTYOUT #'@ 

. TTYOUT #'# 

MFPD <R1)+ 

ADD #2, D. ILEN 

MOV < SP ) +, RO 

CALL DDCADR 
RETURN 



Mode 6 



address 



ooooo; 



011570 



AD7MD6: MFPD <R1)+ 

OOOOOOG ADD #2, D, .TLEN 

MOV ( SP ) +, RO 

ADD R1,R0 

CALL DDCADR 
RETURN 



Morit' 7 



©address 



000762 



AD7MD7: .TTYOUT #'@ 

BR AD7MD6 



Print "#" 

Get the value onto the stack 

Say instruction uses 2 more bytes 

Get the value 

See if value should be printed as neg number 

Br if it was a negative number 

Print as an octal value 



i Print "©#'■ 

Get the address 

Advance the instruction length 

Get the address 

Display the address 



; Get the address 

j Advance the instruction length 

; Get the address 

;Relocate the address 

(Display the address 



i Print "@" 

i Go display the address 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



01 
01 
01 
01 
01 
01 
01 
01 



1302 
1304 
1306 
1310 
1312 
1314 
1316 



01 
01 
01 
01 
01 
01 
01 
01 



1324 
1326 
1330 
1332 
1334 
1336 
1340 



010722 
010730 
010762 
011000 
011022 
011044 
011076 
011126 



010722' 
010730' 
011150' 
011206' 
011022' 
011044' 
011246' 
011270' 



Jump table used to dispatch to the correct display routine for 
addressing modes using registers RO through R6. 

Mode O 

Mode 1 

Mode 2 

Mode 3 

Mode 4 

Mode 5 

Mode 6 

Mode 7 

Jump table used to dispatch to the correct display routine for 
addressing modes using register R7 <PC). 

Mode 



ADRVEC: . WORD 


ADRMDO 


. WORD 


ADRMDl 


. WORD 


ADRMD2 


. WORD 


ADRMD3 


. WORD 


ADRMD4 


. WORD 


ADRMDD 


. WORD 


ADRMD6 


. WORD 


ADRMD7 



AD7VEC; . WORD 


ADRMDO 


. WORD 


ADRMDl 


. WORD 


AD7MD2 


. WORD 


AD7MD3 


. WORD 


ADRMD4 


. WORD 


ADRMD5 


. WORD 


AD7MD6 


. WORD 


AD7MD7 



Mode 
Mode 
Mode 
Mo d e 
Mode 
Mode 
Mode 



1 
2 
3 
4 
5 
6 
7 
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1 



3 
4 








5 








6 








7 








a 


011342 


010046 




9 








10 








11 








12 


011344 


042700 


1 77770 


13 








14 








15 








16 


011350 


020027 


000007 


17 


011354 


001011 




IS 


011356 






19 


011366 






20 


011376 


000427 




21 








22 








23 








24 


011400 


020027 


000006 


25 


011404 


00101.1 




26 


011406 






27 


011416 






28 


011426 


000413 




29 








30 








31 








32 


011430 






33 


011440 


011600 




34 


011442 


042700 


177770 


35 


011446 


062700 


000060 


36 


011452 






37 








38 








39 








40 


011456 


062737 


000002 


41 


011464 


012600 




42 


011466 


000207 
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. SBTTL ODCREO -• Dir-play register name 

ODCR!::0 is called to display the name of a register. 

Input s : 
RO -- F^egister number 

ODCREO: MOV RO, -(SP) 

Determine which register this is 

BIC #"C7, RO ; Clear all but the register number 

See if this is R7 (PC) 



i 



CMP RO, #7 

BNE 1* 

. TTYOUT #'P 

. TTYOUT #'C 

BR 9* 

; See if this is R6 <SP) 

1*: CMP RO, #6 

BNE 2* 

. TTYOUT #'S 

. TTYOUT #'P 

BR 9* 



i Is reg ister PC? 
J Display "PC" 



i Is register SP? 
; Br if not 
i Print "SP" 



This is a register in the range RO to R5. 



3*: . TTYOUT #'R 

MOV < SP ) , RO 

BIC #-^C7, RO 

ADD #'0, RO 
. TTYOUT 



F i n i fc h e d 



OOOOOOG 9$: 



ADD #2, D. PCOL 
MOV <SP)+, RO 
RETURN 



i Print "Rn" 

j Get register number 

.i Convert to ascii digit 
; Print it 



; Advance print column counter 



TSDBUG - 
ODCACC - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 
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— Print a floating point accumulator name 



011470 010046 



011472 

01150r3 

011512 011600 

011514 042700 177774 

011520 062700 000060 
011524 



011530 062737 000003 OOOOOOG 
011536 012600 
011540 000207 



. SBTTL ODCACC — Print a floating point accumulator name 
Print the name of a f-lonting point accumulator. 



Inputs : 
RO = Accumulator number 



ODCACC: MOV 
i Print ACn 



R0> -<SP) 



. TTYOUT #'A 
. TTYOUT #'C 
MOV (SP),RO 
.8IC #-X3, RO 
ADD #'0, RO 
. TTYOUT 



Finished 



ADD 
MOV 
RETURN 



#3, D. PCOL 
(SP)+, RO 



; Clear all but ACC # 
J Convert to ascii char 
i Print the # 



.; Advance print column number 



TSDBUG - 
ODCFPU - 

1 
2 
3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 
20 

21 
22 
23 
24 
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- Print genera.'! floating point operand 



011542 010046 



011544 032700 000070 

011550 001003 

011552 004737 011470" 

011556 000402 



011560 004737 010650' 



011564 012600 
011566 000207 



. SBTTL ODCFPU -- Print general floating point operand 

ODCFPU is called to di^plax^ a general floating point operand. 

1 n p u t s : 
RO " Floating point operand mode and register #. 

ODCFPU: MOV RO, -<SP) 

Determine if it is a floating point accumulator 

ils mode = (accumulator)? 

i Br if not 

.; Display an accumulator name 



BIT 


#70, RO 


BWE 


1* 


CALL 


ODCACC 


BR 


9* 



It is not an accumulator 
1«: CALL ODCGEN 
F i T I i & h B d 



; Display general operand 



9$: 



MOV (SP)+.. RO 
RETURN 



c 
c 
I 
i 
i 
i 
i 
i 
i 
< 
i 

€ 

c 
1 
1 
1 
i 



TSDBUG 
ODCADR 



3 

4 

5 

6 

7 

8 

'? 

10 

11 

12 

13 

14 

15 

17 
18 
19 
20 
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Display decoded instruction address 



011570 010046 
011572 010346 



01 1 574 004737 01 1672 ' 
011600 103031 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



011602 032737 0000000 OOOOOOG 

011610 001023 

011612 004737 007262' 

011616 103420 



011620 010003 

011622 

011632 010300 

011634 004737 007172' 

011640 

011650 062737 000002 OOOOOOG 

011656 000402 



011660 004737 005772' 



BDTTL DDCADH 



DJ5i.p3ay decoded instruction addre&s 



ODCADR is called to display an address value which is an instruction 
operand. If the address is relative to a relocation base, the 
address is displayed in the form " Cr, of f setD ". 

If the address is not relative to a relocation base> it is displayed 
in the form "address". 



I n p u t E : 
RO - Address to be displayed. 



ODCADR : MOV 
MOV 



R0> - < SP } 
R3, -<SP) 



Determine if address i:,hould be shown as a negative number 



CALL 
BCC 



ODCNEG 
9* 



i Should this be shown as a negative number? 

; Br if yes 



Determine if address is relative to a relocation base 



BIT 


#DP«DAA, D. PFMT 


BNE 


1* 


CALL 


RELADR 


BCS 


1* 



; Should address be absolute? 

; Br if yes 

; See if address is within relocation region 

J Br if address is not within relocation region 



Address is within a relocation region. 
Display in the form " Lr.» address] ". 



MOV RO, R3 

. TTYOUT # ' C 

MOV R3, RO 

CALL SHDADR 

. TTYOUT # ' 3 

ADD #2, D. PCDL. 

BR 9* 



I Save the address 

; Print " Cr, ad dress n " 

; Get back address 

iDisplay the address 

i Put in closing bracket 

; Advance print column counter 



011664 012603 
011666 012600 
011670 000207 



*: 



9*: 



Address is not relative to a relocation base 

CALL PRTOCT ; Display the address 



Finished 




MOV 


<SP)+, R3 


MOV 


< SP ) +, RO 


RETURN 





( 

f 
i 
i 

i 
< 
i 
i 
i 
c 
i 
i 
i 
i 
i 
i 
i 
i 
i 
I 
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ODCNEG — Determine i-C values should be shown as negative 



1 



3 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 






14 






15 


011672 




16 






17 






IS 






19 


011672 


020027 177776 


20 


011676 


103414 


21 






22 






23 






24 


011700 


010046 


25 


1 1 702 




26 


011712 


011600 


27 


011714 


005400 


28 


011716 


004737 005772 ' 


29 


1 1 722 


012600 


30 


011724 


000241 


31 


011726 


000401 


32 






33 






34 






35 


011730 


000261 


36 


011732 


000207 



. SBTTL ODCNEQ — Determine if values should be shouin as negative 

ODCNEG is called to determine if an address or value should be displayed 

as a negative number. 

Currently, the only values that are shown as negative numbers 

art? -1 and "2. 

Inputs: 
RO ~ Value to be tested. 

Output !i: 
C-flag cleared ==> Value was displayed as a negative number. 
C-flag set ===> Value is not displayed as a negative number. 

ODCWEG: 

See if this is a value to be displayed as a negative number 



CMP RO, #177776 
HLO 9* 

This is a negative value 



;Is this a negative value? 
i Br if not 



MOV 


RO, -<SP> 


. TTYOUT 


#'- 


MOV 


( SP ) .. RO 


MEG 


RO 


CALL 


PRTOCT 


MOV 


<SP)+, RO 


CLC 




BR 


10* 


> F i n i s h e d 




9* : SEC 




10*: RETURN 





i Print minus sign 

; Get the val ue 

j Negate it 

; Print it 

■/Recover original value 

iThis is a negative number 



.: Th i s is not a negative value 



I 

€ 

C 

i 

i 

i 

i 

I 

€ 

4 
i 
€ 
€ 
I 
i 

i 
c 

4 
4 



TSDBUG 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
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— Tab to a specified col umn 



011734 010046 



011736 

1 1 746 00 5237 0000000 

011752 023716 0000000 

011756 103767 



011760 012600 
011762 000207 



. SBTTL ODCTAB — Tab to a specified column 

ODCTAB is called to tab over to a specified print column. 

I n p 1,1 i B : 
D. F'COL •- Current print column number. 
RO = Desired print column. 

Outputs: 
D. F'COL = New print column after tabbing. 

ODCTAB: MOV RO. -(SP.) 

Print spaces until we reach the desired column 

1*: 



. TTYOUT #SPACE 

.INC D. PCOL 

CMP D. PCOL, <SP) 

BLO 1$ 



/Print a space 

■> Advance column number 

J Reached desired column? 

i Loop if not 



F i n i v> h e d 



MOV (SP)+, RO 
RETURN 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
2.) 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL INSBAS — In&truction decoding tables 



000000 
000002 
000004 
000005 
000006 



Table used for decoding a F'Df^-11 instruction into symbolic form. 
Each instruction is defined by an invocation of the INSTR macro 
which takes 4 arguments. The four arguments are: 

Argument 1 = 16 bit matk used to mask out the operand portions 
of the in&truction mord. 

Argument 2 = Value of instruction after mask <arg 1) has been applied. 

Argument 3 = Operand type code for the instruction. 

Argument 4 = Symbolic name for the instruction. 

Define symbolic names for offsets into an instruction description block: 



n3*MSK 
1B*VAL 
IB*TYP 
IB*LEN 
IB*NAM 




2 
4 
5 
6 



Mask value 

Instruction value 

Operand type 

Length of in&truction mnemonic text string 

Start of instruction mnemonic text string 



011764 



1 1 764 
1 1 776 
12010 
12022 
12034 
12046 
12062 



. MACRO 
. WORD 
. WORD 
. BYTE 
. NCHR 
. BYTE 
. ASC 1 1 
. EVEN 
. ENDM 

Type codes 



INSTR 

MASK 

VALUE 

TYPE 

NAMLEN, HAM: 

NAMLEN 

/ 'NAME/ 

INSTR 



MASK, VALUE, TYPE, NAME 



for the instruction operand types: 

TYPl = No operand. 

TYP2 = Single general operand. 

TYP4 - 4-bit absolute numeric operand. 

TYP5 = Condition code modification instruction. 

TYf-'6 = Branch offset operand. 

7YP7 = Register source, general operand destination. 

TYP9 ~ General source and destination operands. 

TYPIO = Register and loop offset <SOB). 

TYPll = EMT and TRAP instructions. 

TYP12 = Single floating point general operand 

IYP13 = Floating point accumulator and floating source operand 

■fYP14 = Floating point accumulator and general source operand 

(YPIS = Floating point accumulator and floating destination operand 

TYP16 = Floating point accumulator and general destination operand 

Define the instructions 



INSBAS: 










^ 


Mask 


Code 


1 y p c> 


Name 


INSTR 


000000.. 


000000, 


TYPl, 


HALT 


INSTR 


000000, 


000001, 


TYPl, 


WAIT 


INSTR 


000000.. 


000002, 


TYP 1 , 


RTI 


INSTR 


000000, 


000003, 


TYP 1 , 


BPT 


INSTR 


000000, 


000004, 


TYPl, 


lOT 


INSTR 


000000, 


000005, 


TYPl, 


RESET 


INSTR 


000000, 


000006, 


TYPl, 


RTT 



TSDBUG 
INSBAS 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
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012074 

012106 

012122 

012134 

012146 

012160 

012170 

012200 

012212 

012222 

012234 

012246 

012260 

012272 

012304 

012316 

012330 

012342 

012354 

1 2366 

012400 

012412 

012424 

012436 

012450 

012462 

012474 

012506 

012520 

012532 

012544 

012556 

012570 

012602 

012614 

012626 

012640 

012652 

012664 

012676 

012710 

012722 

012734 

012746 

012760 
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013004 
013016 
013030 
013042 
013054 
013066 
013100 
013112 
013124 
013136 
013150 



INSTR 


000077 


> 000100 


, TYP2, 


JMP 


INSTR 


000000 


, 000207 


, TYP J , 


RETURN 


INSTR 


000007 


> 000200 


rYP3, 


RTS 


INSTR 


000007 


, 000230 


TYP4, 


SPL 


INSTR 


000000 


, 0O0240 


TYPl, 


NOP 


INSTR 


000017 


, 000240 


TYP 5, 


CL 


INSTR 


000017 


000260, 


TYP 5, 


SE 


INSTR 


000077 


000300, 


TYP2, 


SWAB 


INSTR 


000377. 


000400, 


TYP6, 


BR 


INSTR 


000377, 


001000, 


TYP 6, 


BNE 


INSTR 


000377, 


001400, 


TYP6, 


BEQ 


INSTR 


000377, 


002000, 


TYP6, 


BGE 


INSTR 


000377, 


002400, 


TYP6, 


BLT 


INSTR 


000377, 


003000, 


TYP6, 


BGT 


INSTR 


000377, 


003400, 


TYP6, 


BLE 


INSTR 


000077, 


004700, 


TYP2, 


CALL 


INSTR 


000777, 


004000, 


TYP7, 


JSR 


INSTR 


000077, 


005000, 


TYP2, 


CLR 


INSTR 


000077, 


005100, 


TYP2, 


COM 


INSTR 


000077, 


005200, 


TYP2, 


INC 


INSTR 


000077, 


005300, 


TYP2, 


DEC 


INSTR 


000077, 


005400, 


TYP2, 


NEG 


INSTR 


000077, 


005500, 


TYP2, 


ADC 


INSTR 


000077, 


005600, 


TYPP, 


SBC 


INSTR 


000077, 


005700, 


TYP2> 


rsT 


INSTR 


000077, 


006000, 


TYP2, 


ROR 


INSTR 


000077, 


006100, 


TYP2, 


ROL 


INSTR 


000077, 


006200, 


TYP2, 


ASR 


INSTR 


000077, 


006300, 


TYP2, 


ASL 


INSTR 


000077, 


006400, 


TYPO, 


MARK 


INSTR 


000077, 


006500, 


TYP2, 


MFPI 


INSTR 


000077, 


006600, 


TYP2, 


MTPI 


INSTR 


000077, 


006700, 


TYP2, 


SXT 


INSTR 


007777, 


010000, 


TYP9, 


MOV 


INSTR 


007777, 


020000, 


TYP 9, 


CMP 


INSTR 


007777, 


030000, 


TYP9, 


BIT 


INSTR 


007777, 


040000, 


TYP9, 


BIC 


INSTR 


007777, 


050000, 


TYP9, 


BIS 


INSTR 


007777, 


060000, 


TYP9, 


ADD 


INSTR 


000777, 


070000, 


TYP8, 


MUL 


INSTR 


000777, 


071000, 


TYPS, 


DIV 


INSTR 


000777, 


072000, 


TYPB, 


ASH 


INSTR 


000777, 


073000, 


TYP8, 


ASHC 


INSTR 


000777, 


074000, 


TYP 7, 


XDR 


INSTR 


000007, 


075000, 


TYPl, 


FADD 


INSTR 


000007, 


075010, 


TYPl, 


FSUB 


INSTR 


000007, 


075020, 


TYPl, 


FMUL 


INSTR 


000007, 


075030, 


TYPl, 


FDIV 


INSTR 


000777, 


077000, 


TYP 10, 


SOB 


INSTR 


000377, 


100000, 


TYP6, 


BPL 


INSTR 


000377, 


100400, 


TYP6, 


BMI 


INSTR 


000377, 


101000, 


TYr»6, 


BHI 


INSTR 


000377, 


101400, 


TYP6, 


BLOS 


INSTR 


000377, 


102000, 


TYP 6, 


BVC 


INSTR 


000377, 


102400, 


TYP6, 


BVS 


INSTR 


000377, 


103000, 


TYP6, 


BCC 


INSTR 


000377, 


103400, 


TYP6, 


BCS 



i 



TSDBUG - 
liMSBAS • 

115 

116 

U7 

IIB 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

13S 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 
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013162 
013174 
1 3206 
013220 
013232 
013244 
013256 
013270 
013302 
013314 
013326 
013340 
013352 
013364 
013376 
013410 
013422 
013434 
013446 
013460 
013472 
013504 
013516 
013530 
013542 
013554 
013566 
013600 
013614 
013630 
013642 
013654 
013666 
013700 
013712 
013724 
013736 
013750 
013762 
013774 
014006 
014020 
014032 
014046 
014062 
014076 
014112 
014126 
014142 
014154 
014166 
014200 



INSTR 

INSTR 

INSTR 

liMSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

JNSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSTR 

INSEND: 



000377, 

000377, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

007777, 

007777, 

007777, 

007777.. 

007777, 

007777, 

000000, 

000000, 

000000, 

000000, 

000000, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000077, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000377, 

000077, 

000077, 

177777, 



104000, 

104400, 

105000, 

105100, 

105200, 

105300, 

105400, 

105500, 

105600, 

105700, 

106000, 

106100, 

106200, 

106300, 

106500, 

106600, 

110000, 

120000, 

130000, 

140000, 

150000, 

160000, 

170000, 

170001, 

1 70002, 

170011, 

170012, 

170100, 

170200, 

170300, 

170400, 

170500, 

170600, 

170700, 

171000, 

171400, 

172000, 

172400, 

173000, 

173400, 

174000, 

174400, 

175000, 

175400, 

176000, 

176400, 

177000, 

177400, 

106400, 

1 06700, 

000000, 



TYi'll, 

TYPJ 1, 

TYPP, 

TYi'2, 

TYP2, 

TYP2, 

TYP2, 

TYPP, 

TYP2, 

TYP2, 

TYP2, 

TYP2, 

TYP2, 

TYP2, 

TYP2, 

TYP2, 

TYP9, 

TYP9, 

TYP9, 

TYP9, 

TYP9, 

TYP9, 

TYPl, 

TYPl, 

TYPl, 

TYPl, 

TVPl, 

TYP2, 

TYP2, 

TYP2, 

TYPJ 2, 

TYPl 2, 

TYPl 2, 

TYPl 2, 

TYPJ 3, 

TYPJ 3, 

TYPl 3, 

TYPJ 3, 

TYPl 3, 

TYPl 3, 

TYPl 5, 

TYPJ 3, 

TYPJ 6, 

TYPl 6, 

TYPl 6, 

TYPl 4, 

TYPl 4, 

TYPJ 3, 

TYP2, 

TYP2, 

TYPJ, 



EMT 

TRAP 

CLRB 

COMB 

INCB 

DECS 

NEGB 

ADCB 

SBCB 

TSTB 

RORB 

ROLB 

ASRB 

ASLB 

MFPD 

MTPD 

MOVE 

CMPB 

BITS 

BICB 

BISB 

SUB 

CFCC 

SETF 

SET I 

SETD 

SETL 

LDFPS 

STEPS 

STST 

CLRF 

TSTF 

ABSF 

NEGF 

MULF 

MODE 

ADDF 

LDF 

SUBF 

CMPF 

STF 

DIVF 

STEXP 

STCFI 

STCFD 

LDEXP 

LDCIF 

LDCDF 

MTPS 

MFPS 

■Ti •-'» ■•"j '-» 



( 

r 



Address vector used to jump to correct routine to decode and display 

the operands associated with an instruction. 

. MACRO TYPDEF TYPNAM, RTN 



TSDBUG - 
INSBAS - 

172 
173 
174 
175 
176 
1 77 
17S 
179 
ISO 
181 
1 Se: 
183 
184 
185 
186 
187' 
188 
139 
190 
191 
192 
193 
194 
195 
196 
Errors d 
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jYPNAM ^- 


, -TYPVEC 




. WORD 


RTN 




. ENDM 


TYPDEF 





Define the types 



014200 
1 4200 
014202 
014204 
014206 
014210 
014212 
014214 
014216 
014220 
014222 
014224 
014226 
014230 
014232 
014234 
014236 

000001 
etected: 



TYPVEC: 






TYPDEF 


TYP 1 , DDC 1 


, No op 


TYPDEF 


TYP2. 0DC2 


Singi 


TYPDEF 


TYP3, 0DC3 


Singi 


TYPDEF 


TYP4, 0DC4 


4-bit 


TYPDEF 


TYP5. 0DC5 


Cond i 


TYPDEF 


TYP6, 0DC6 


Branc 


TYPDEF 


TYP7, 0DC7 


Reg i s 


TYPDEF 


TYP 8, 0DC8 


Regis 


TYPDEF 


TYP9, 0DC9 


Gener 


TYPDEF 


TYP 10, ODCiO 


Reqis 


TYPDEF 


TYP11,0DC11 


EMT a 


TYPDEF 


TYP12>0DC12 


One f 


TYPDEF 


TYP13, 0DC13 


Float 


TYPDEF 


TYP14,0DC14 


Float 


TYPDEF 


TYP15, 0DC15 


Flo<3t 


TYPDEF 


TYP16, 0DC16 


Float 



lerand 

, e general operand. 

e register operand < 
absolute numeric op 

tion code modificati 

h offset operand. 
iter source* general 
iter destination, gen 
■al source and destin 
iter and loop offset 
snd TRAP instructions 

loating point operan 
;ing accum and floati 
;ing accum and genera 
;ing accumulator and 

ing accumulator and 



RTS) 

erand. 

on instruction. 

operand destination, 
eral source operand 
ation operands. 
(SOB). 



ng source operand. 
1 source operand, 
floating destination 
general destination. 



. END 



*** Assembler statistic 



Work file reads 
Work file urrites* 
Size of work file 
Size of core pool 
Operating system 







9616 Words 

17920 Words 

RT I 1 
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TSDBUG 


jcX-F 


. u H !:i e b i 1 u g :i n 


g mo MACRO 


V05. 04 


Monday 21 


-Dec -87 03: 


42 Pacie S-1 












Cross r 


e f e r e n c e 


table (CREF 


V05. 04) 




















*DBGBK 


1-33 


6-16 






















i *DEBUG 


1-34 


6-17 






















... VI 


10-32 


20-27 


22-5 


32-22 


32-27 


33-17 


33-42 


34-26 


35-22 


39-49 


39-52 


39-59 




41-27 


45-55 


47-29 


47-32 


47-35 


47-38 


48-41 


49-15 


50-16 


51-16 


52-54 


53-15 




54-16 


55-16 


57-12 


57-15 


57-21 


57-27 


57-35 


57-43 


57-44 


57-63 


58-6 


58-17 




58-18 


53-36 


60-18 


60-19 


60-26 


60-27 


60-32 


60-36 


61-12 


61-13 


61-17 


63-31 




63-34 


64-25 


65-16 




















♦ ACRNUM 


29-42 


29~r>4 


30-1 0« 




















ACRVAL 


9-20 


9-31 


29-15# 




















AD7MD2 


58-6# 


59-19 






















i AD7MD3 


58-17# 


59-20 






















AD7MD6 


5S-27# 


58-37 


59-23 




















AD7MD7 


5S-36# 


59-24 






















i AD7VEC 


56-34 


59-17# 






















ADRMDO 


57-6# 


59-5 


59-17 




















ADRMDl 


57-1 1# 


57-20 


57-37 


57-46 


57-57 


59-6 


t/?-is 












< ADRMD2 


57-20# 


57-P9 


59-7 




















ADRMD3 


57-26# 


59-E^ 






















ADRMD4 


57-34# 


59-9 


59-21 




















i ADRMD5 


57~42# 


59-10 


59-22 




















ADRMD6 


57-51# 


57-65 


59-11 




















ADRMD7 


57~62# 


59-12 






















i ADRVEC 


56-39 


59- 5# 






















BtLL 


i-71# 
























BKSPAC 


l-72# 


2-21 






















< BRKCHK 


7-13 


26-22# 






















BRKENT 


1-21 


6-29 


7-8# 




















BRKRST 


7-67 


24-7# 






















< BRKSET 


7-24 


S-:I4 


25-6# 




















CHKADR 


15-20 


44~29« 






















CMDAT 


2-30 


12~6# 






















4 CMDAT 1 


12-7# 


12-35 






















CMDB 


2-35 


15-5# 






















CMDBKl 


10-22# 


12-26 


20-35 


22-30 


















i CMDBKS 


2-29 


10-8 


10-2i# 


11-17 


21 -22 
















CMDBSP 


2-45 


22- n# 






















CMDCR 


2-42 


2o-ri# 






















i CMDDCD 


2-33 


11 -5# 


21 8 


21-17 


















CMDEXP 


2-32 


13-5# 






















CMDG 


2-36 


16-5# 






















i CHDLF 


2-43 


18-58 


20-1 7# 




















CMDM 


2-37 


19-5# 






















CMDP 


2-38 


16-16# 


17-31 




















i CMDR 


2-39 


14-5# 






















CMDRSB 


2-34 


21 -5# 






















CMDS 


2-40 


16~26# 






















C CMDSLl 


10-7# 


11 -"20 


12-20 


20-30 


22-25 
















CMDSLH 


2-28 


10-6# 






















CHDTAB 


2-46 


1 7-9# 






















1 CMDTBL 


2-4# 


2-23 


9-39 




















CMDUP 


2-44 


22-6 


22-1 1# 




















CMDUS 


2-31 


12-32# 






















i CMDVEC 


2~2S# 


9-49 






















CMDX 


2-41 


lS-5# 






















COLDPN 


1 -S0# 

53- e 


46-14 
54-8 


46-33 
55-8 


47-8 


48-S 


48-33 


49-8 


50-8 


51-0 


52-8 


52-28 


52-47 



( 



f 
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COMMA 


1~75# 


48-4 1 


49-15 


50-16 


51-16 


52-54 


53-15 


54-16 


55-16 










CDRUSR 


1-32 


6-15 


43-15 






















CR 


1 -69# 


1-91 


1-93 


2-18 


18-15 


18-25 


1 8-40 


20-27 


43-29 










CRCHAR 


l--93# 


20-32 


21-19 






















CRLF 


l-92# 
27-28 


5-31 
27-4 J 


5-39 

27-56 


9 --5 
27-68 


12-9 
35-6 


16-8 


16-19 


17-65 


21-14 


22-22 


22-27 


27 


-7 


D*BKST 


1-30 


24-3 


24-26 


25-21 




















D«CKBK 


1-33 


17-60 


24-10 


25-7 


26-53 


28-19 


28 -24 














D*DBRK 


1-28 


5-43 


7-14 


26-26 


26-49 


27-11 
















D«DMON 


1-29 


7-22 


7-65 


8-6 


8-12 


8-28 


8-54 


19-5 


19-8 


26-30 








DfDVAL 


1-30 


19-5 


19-17 


26-37 




















D*FBRK 


1-31 


6-28 


7-14 


7-77 


8" 5 


27-54 
















D^IBRK 


1-28 


5-43 


7-14 


7-68 


26-26 


26-85 


27-39 














D*INIT 


1-34 


6-22 


23-16 






















D^IPND 


1-30 


7-21 


7 --64 


7-71 


8-8 


8-12 


8-54 


26-59 












D*RUN 


1-33 


7-39 


8-10 






















D*SBRK 


1-28 


5-43 


7-14 


26-26 


26-66 


27-32 
















D*SSTP 


1-28 


7-22 


7-65 


8-6 


8-12 


8-54 


1 6-26 


16-31 


17-64 


26-53 


26-64 






D*TSTP 


1 -34 


7-22 


7-65 


7-84 


8-6 


S~12 


8 -54 


17-30 


26-53 


26-64 








D. BKAD 


1-25 


3-33 


15-13 


15-21* 


24-16 


25-13 


26-75 


28-12 












D. BKNM 


1-28 


26-67-fr 


26-84* 


27-42 


27-47 


















D. BKSV 


1-29 


24-21 


25-16* 






















D. BYTM 


1-25 


10-9K- 


10-22* 


20-24 


21 11 


22-19 


37 26 


37-56 


38-22 


38-46 








D. CBRK 


1-35 


17-59* 


27-44* 






















D. DADR 


1-29 


8-30 


19-10* 


26-32 


27-17 


27-20 
















D. DOLD 


1-29 


8-3 5 fi- 


26-40 


27-23* 


27-27* 


















D. DTRG 


1-29 


i9-.tei;- 


26-44 






















D. END 


1-31 


23-13 
























D. FLAG 


1-28 


5~43iv 


6-22 


6-28* 


7-14 


7-21* 


7 22 


7-39* 


7-64* 


7-65 


7-68 


7- 


-71* 




7-77 


7-84 -fi- 


8-5* 


8 "6 


S-S* 


8-10* 


8-12 


8-28 


8-54 


16-26* 


16-31* 


17- 


-30* 




1 7-60^f- 


17-64* 


1 9-5* 


19-8* 


19-17* 


23-16* 


24-8 


24-10 


24-26* 


25-7 


25-21* 


26- 


-26* 




26-30 


26-37 


26-49* 


26-53 


26-59 


26-64 


26-66* 


26-85* 


27-11 


27-32 


27-39 


27- 


-54 




28-19* 


28-24* 
























D. ILEN 


1-34 


10-10* 


10-23* 


18-9* 


21-13 


45-20* 


57-53* 


58-8* 


58-20* 


58-28* 








D. LOC 


1-25 


5-54* 


8-9* 


10-7 


11-12 


12-7* 


12-33 


13-22 


13-29 


20-10* 


20-18 


20- 


-26* 




20-31W 


21-9 


21-13* 


21-18* 


22-12 


22-21* 


22-26* 


36-16* 


37-32 


37-39 


37-42 


37- 


-61* 




37-67 


37-69 


38-27 


38-34 


38-38 


38-51 


38-56 


38-59 


39-23 


39-29 








D. LOCM 


1-26 


11-18 


12-8* 


36-15* 


37-16 


37-21 


38-17 


39-18 












D. LVAL 


1-33 


10-12* 


10-25* 


12-6 


12-32 


14-36 


14-51 


18-6 












D. MASK 


1-33 


3-31 


8-32 


23-15* 


26-34 


27-25 
















D. NMBE 


1-31 


30-38 
























D. WMBF 


1-25 


30-28 


30-54 






















D. PCNT 


1-32 


7-75 


7-79* 


1 6-9* 


16-18* 


















D. PCOL 


1-34 


10-33* 


11-28 


18-53* 


20-5* 


20-17* 


21-5* 


22-11* 


31-19* 


32-23* 


32-28* 


33- 


■IS* 




33-43-!* 


34-27* 


35-8* 


35-23* 


39-50* 


39-53* 


39-60* 


41-28* 


43-24* 


43-33* 


45-25* 


45- 


-51* 




47-42-«- 


48-42* 


49-16* 


51-17* 


52-55* 


53-16* 


54-17* 


55-17* 


60-40* 


61-2i* 


63-35* 


65- 


-17* 




65-18 


























D. PFMT 


1-35 


3-32 


40-16 


63-22 




















D. PS 


1-30 


3-30 


4-17* 


5-26* 


7-35* 


8-53* 


8-56* 


8-57* 


8-61 










D. RO 


1-27 


3-22 


5-27* 


7-9* 


7-28 


8-49 
















D. Rl 


1-27 


3-23 


7-40* 


8-45 




















D. R2 


1--27 


3-24 


7-41* 


8-44 




















D. R3 


1-27 


3-25 


7-42* 


3-43 




















D. R4 


1-27 


3-26 


5-24* 


5-44 


7-43* 


8-42 
















D. R5 


1-27 


3-~P7 


5-23* 


5-45 


7-44* 


8-41 
















D. R6 


1-27 


3-28 


7-46* 


8-39 
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( 



D. R7 


i-27 

26-73 


3-29 
27-14 


4-1 6» 
27-61 


5-25* 
27-66 


5-37 
29--62 


7-8* 


7-34* 


7-70* 


8-62 


16-7* 


17-26» 


17- 


-37 


D. RLBS 


1--25 


3-34 


13-23 


14-23* 


14-37 


29-55 


41-23 


42-23 


42-25 


42-28 








D. SPSV 


1-31 


5~;>2 


7-51* 


35 -9 




















D. STAR 


1-31 


23- n 
























D. SVCH 


1-25 


31-12 


31-31* 


3 1-41* 




















D. VIFL 


1-26 
20-20 


9-13* 
21-6 


9-22* 
22-15 


11-9 
36-13 


13-11 


14-29 


16-5 


16-16 


17-13 


17-15* 


18-57* 


20- 


-6 


D. V2FL 


1-26 


9-1 'J* 


9-33* 


14-13 


15-5 


16-27 


19-15 














D. VALl 


1-26 

20-8 


9-14* 

20-22 


9-21* 
22-17 


13-10 
36-16 


14-23 


14-31 


15-19 


16-7 


16-18 


17-21 


19-6 


19- 


-9 


D. VAL2 


1-26 


9-ihk 


9-32* 


14-18 


1 5-7 


1 6-29 


19-18 














DBGBRK 


1-21 


6-104f 
























DECENT 


1-21 


4-B# 
























DBGINI 


4-12 


6-24 


23-7# 






















DBGOFF 


8-11 


44-13# 
























DBGON 


7-8S 


44-5# 
























DBGRUN 


4-21 


5-46 


7~39# 






















DBGTRP 


1-21 


5~13# 
























DECODE 


11-24 


27-67 


45-12# 






















DOPRT 


5-31 


5-39 


9-5 


12-9 


16-8 


16-19 


1 7 65 


20-32 


21-14 


21-19 


22-22 


22- 


-27 




23-25 


27-7 


27 -2S 


27-41 


27-56 


27-68 


35-6 


35-7 


43~9# 










DP*DAA 


1-35 


63-22 
























DP*LAA 


1-35 


40-16 
























EM*IIV 


1-S8# 


29-74 
























EM*IRB 


l-89# 


29-51 
























EH$IRC 


1-S5# 


18-34 
























EM*IVC 


1 -S6# 


9-43 
























EM«iyL 


1 -87# 


14-21 


14-34 


15-U 




















EM*NTL 


1~90# 


30-30 
























ERRPRT 


9-43 


14-21 


14-34 


15-11 


18-34 


29-51 


29-74 


30-80 


35 -6# 










EXITl 


7-80 


8~5« 


16-10 


16-20 


17-66 


















EXIT2 


S-49# 


























FLGBRK 


15-25 


2S-7# 
























GETCHR 


9-26 
31-S# 


9-37 


18-13 


18-24 


18-39 


18-54 


29-19 


29-53 


29-68 


30-17 


30-30 


30- 


-71 


GETCMD 


9-13# 


10-15 


10-35 


11-35 


13-35 


14-57 
















GETVAL 


10-11 


1 0-24 


38-1 3*f 






















IB*LEN 


45-39 


45-50 


66-1 7« 






















IB*MSK 


45-36 


45-61 


66-14# 






















IB*NAM 


45-42 


45-53 


66-18# 






















IB*TYP 


45-70 


66-16# 
























IB*VAL 


45-37 


66-15# 
























INSBAB 


45-34 


66-48# 
























INSEND 


66-i66# 


























INSLEN 


17-57 


1 7-70^lf 
























I NT ADR 


3-22# 


29-76 


39-30 


39-47 




















INTCHR 


3~4# 


3- 1 7 


29-70 


39-51 




















INTEND 


3~35# 


39-42 
























LF 


l-70# 


1-91 


2-19 


18-17 


18-27 


18-42 


18-55 


43-31 












LSTADR 


5-38 


27-15 


27-18 


27-62 


39-24 


40-1 2# 
















LSTTXT 


5-34 


5-36 


9-9 


10-14 


10-28 


10-34 


12-19 


12-25 


13-17 


13-20 


13-31 


14- 


-28 




14-42 


14-45 


14-53 


18-5 


is-s 


20-29 


20-34 


21-16 


21-21 


22-24 


22-29 


27- 


-13 




27-16 


27-19 


27-34 


27-46 


27-49 


27-57 


35~20# 


35-24 


45-24 










LSW9 


1--33 


6-16K- 


6-17* 






















NAMLEN 


66-51 


66-5 1» 


66-52 


66"52# 


66-53 


66-53# 


66-54 


66-54# 


66-55 


66-55# 


66-56 


66- 


-564 
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NEWCMD 

NEWLIN 

NUMCMD 

NUMINT 

ODCl 

ODCIO 

ODCll 

ODCl 2 

ODCl 3 

ODCl 4 

ODCl 5 

ODCl 6 

0DC2 

0DC3 

0DC4 

0DC5 

0DC6 

0DC7 

0DC8 

0DC9 

ODCACC 

ODCADR 

ODCFPU 

ODCGEN 

ODCNEG 

ODCREG 

ODCTAB 

OFFEMT 

OWEMT 

OVRHC 

PRTBYT 

PRTOCT 

PRTR50 
PRTWRD 
PSHCHR 



66-57 
66-63 
66-69 
66-75 
66-81 
66-87 
66-93 
66-99 
66-105 
66-111 
66-117 
66-123 
66-129 
66-135 
66-141 
66-147 
66-153 
66-159 
66-165 
5-55 
9-5# 
2-23# 
3-i7# 
46-5# 
5 1 -4# 
52-4# 
52-24# 
52-43# 
53~4# 
54~4# 
55-4# 
46~10# 
46-29# 
47-4# 
47~23# 
48-4# 
48-29# 
4# 
4# 
61 
20 
34 
20 



49- 
50- 
52- 
48- 
52- 
46- 
58-10 
46-39 
11-31 
53-9 
l-65# 
l-64# 
1-32 
10-27 
13-19 
58-12 
18-7 
10-13 
9--29 



66~57# 

66-63# 

66-69# 

66-7 5# 

66-8 1# 

66-B7# 

66-93tf 

66-99# 

66-105# 

66-1 11# 

66-1 17# 

66~123# 

66~129# 

66~135# 

66-141 # 

66-147# 

66-1 53# 

66-1 59# 

66-165# 

7-73 
11-14 

9-38 
29-69 

OD-1 /T 

66-1B8 
66-189 
66-190 
66-191 
66-19,? 

66-1 9;:i 

66-194 

66-180 

66-181 

66-182 

66-183 

66-184 

66- IB^ 

66-186 

66-187 

53-22 

51-2f3 

52-53 

48-47 

63-17 

48-40 

46-15 

54-9 

44-13 

44-;-i 

43-2; ( 

33-3,1 # 

13-24 

63-40 

34~8# 

27-24 

18-14 



66-58 

66-64 

66-70 

66-76 

66-82 

66-88 

66-94 

66-100 

66-106 

66-112 

66-118 

66-124 

66-130 

66-136 

66-142 

66-148 

66-154 

66-160 

9-9# 
14-24 



54-15 

57-55 

54-22 

49-14 

64-15-11 

49-22 

46-34 

55-9 



43-30 

14-41 
64-28 

33-7# 
18-47 



66-58# 

66-64# 

66~70# 

66~76# 

66-82# 

66~8S# 

66-94# 

66-i00# 

66-106# 

66-1 12# 

66-1 18# 

66~124# 

66-130# 

66-136# 

66~142# 

66-1 48# 

66-154# 

66-1 60# 

20-11 
15-26 



55-15 
58-22 
62-S# 
50-15 

51-15 

47-9 

65-12# 



43-32 
14-44 

29-24 



66-59 

66—65 

66-71 

66-77 

66—83 

66-89 

66-95 

66-101 

66-107 

66-113 

66-119 

66-125 

66-131 

66-137 

66-143 

66-149 

66-155 

66-161 

35-10 
16-32 



61 -S# 
58-31 

50-21 



43-9 



27-48 



30-24 



66-59# 

66-65# 

66-7 1# 

66-77# 

66-S3# 

66-S9# 

66-95# 

66-101# 

66-107# 

66-1 13# 

66-1 19# 

66— 125# 

66-131# 

66-137# 

66-143# 

66-149# 

66-1 55# 

66-161# 



18-62 



62-14 
63-.12# 

53-14 

57-14 
48-34 



-8# 



30-50 



66-60 

66—66 

66-72 

66-78 

66-84 

66-90 

66—96 

66-102 

66-108 

66-114 

66-120 

66—126 

66-132 



66- 
66- 
66- 
66- 



138 
144 
150 
156 



66-162 



55-22 

60 ■8# 
49-9 



39-62 



30-72 



66-60# 

66-66# 

66-72# 

66-78# 

66-S4# 

66-90# 

66-96# 

66-102# 

66-108# 

66-1 14# 

66-120# 

66-126# 

66-132# 

66-13S# 

66-144# 

66-150# 

66-156# 

66-162# 



20-36 



56-14# 



50-9 



40-26 



31-41# 



66-61 

66-67 

66-73 

66-79 

66-85 

66-91 

66-97 

66-103 

66-109 

66-115 

66-121 

66-127 

66-133 

66-139 

66-145 

66-151 

66-157 

66~163 



62-19 



51-9 



41-26 



66-6 1# 

66-67# 

66-73# 

66-79# 

66-85# 

66-9 1# 

66-97# 

66-103# 

66-109# 

66-11 5# 

66-121# 

66-1 27# 

66-133# 

66-139# 

66-1 4 5# 

66-151# 

66-157# 

66-163# 



22-14 



41-33 



66-62 

66-68 

66-74 

66-80 

66-86 

66-92 

66-98 

66-104 

66-110 

66-116 

66-122 

66-128 

66-134 

66-140 

66-146 

66-152 

66-158 

66-164 



52-29 



47-14 



66-62# 

66-6S# 

66-74# 

66-80# 

66-86# 

66-92# 

66-9S# 

66-104# 

66-1 10# 

66-116# 

66-122# 

66-12S# 

66-1 34# 

66-140# 

66-146# 

66-152# 

66-1 5S# 

66-164# 



52-48 



52-15 
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Cross reference 


table <CREF 
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PSW 


1-32 


5~;';.i^:- 


23-21 i:- 






























PUTCHR 


1-32 


43-23 


43-30 


43-32 




























R50CHR 


1"97# 


18-29 


18-32 


18-35 


34-18 


























RELADR 


41-18 


42-14« 


63-24 






























SETLOC 


10-6 


10-21 


11-11 


36-13# 




























SHOADR 


13-30 


14-S2 


40 •21 


41 -10# 


63-33 


























SHOBRK 


7-92 


27~6# 
































SHOLOC 


12-18 


12-24 


20-20 


20-33 


21-15 


21-20 


22-23 


22- 


-28 


39- 


-11# 














SPACE 


l-74# 


65-16 
































STRVAL 


18-49 


20-9 


20-23 


22-18 


37-1 1# 


























TAB 


i-73# 


2-22 
































TM*eRT 


1-91# 


23-25 
































TRCTRP 


l-79# 


7-25 


7-27 


7-58 


8-23 


8-53 


8-56 






















TSDBUG 


l-6# 


































TYPl 


66-51 


66-52 


66-53 


66-54 


66-55 


66-56 


66-57 


66- 


-59 


66- 


-62 


66- 


-102 


66- 


-103 


66- 


-104 




66-105 


66-137 


66-138 


66-139 


66-140 


66-141 


66-165 


66- 


-179# 


















TYPIO 


66-106 


66~18e# 
































TYP 1 1 


66-115 


66-116 


66-18V# 






























TYPl 2 


66-145 


66-146 


66-147 


66-148 


66-190# 


























TYP 1 3 


66-149 


66-150 


66-151 


66-152 


66-153 


66--154 


66-156 


66- 


-162 


66- 


•191# 














TYP 14 


66-160 


66-161 


66-1 92« 






























TYP 15 


66-155 


66-193# 
































TYP 16 


66-157 


66-158 


66-159 


66-194# 




























TYP2 


66-58 


66-6f> 


66-73 


66-75 


66-76 


66-77 


66-78 


66- 


-79 


66- 


-SO 


66- 


-81 


66- 


-82 


66- 


-83 




66~S4 


66-85 


66-86 


66-88 


66-89 


66-90 


66-117 


66- 


-118 


66- 


-119 


66- 


-120 


66- 


-121 


66- 


-122 




66-123 


66-124 


66-125 


66-126 


66-127 


66-128 


66-129 


66- 


-130 


66- 


-142 


66- 


-143 


66- 


-144 


66- 


-163 




66-164 


66-1 80# 
































TYP3 


66-60 


66-lSl# 
































TYP 4 


66-61 


66-is::'# 
































TYP 5 


66-63 


66-64 


66-1 S3# 






























TYP 6 


66-66 
66-112 


66-67 
66-113 


66-68 
66-114 


66-69 
66-184# 


66-70 


66-71 


66-72 


66- 


-107 


66- 


-108 


66- 


-109 


66- 


-110 


66- 


-111 


TYP 7 


66-74 


66-101 


66-185*! 






























TYP8 


66-87 


66-97 


66-98 


66-99 


66-100 


66-1 S6« 
























TYP 9 


66-91 
66-lS7# 


66-92 


66-93 


66-94 


66-95 


66-96 


66-131 


66- 


-132 


66- 


"133 


66- 


-134 


66- 


-135 


66- 


-136 


TYPVEC 


4 5-71 
66-189 


66-178# 
66-190 


66-179 
66-191 


66-180 
66-192 


66-181 
v66-193 


66-182 
66-194 


66-183 


66- 


-184 


66- 


-185 


66- 


-186 


66- 


-187 


66- 


-188 


UMODE 


1 -30 


8-07 
































UP MODE 


1-30 


1-32 


5-53 


8-57 


23-21 
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. . . CM5 


J. 0-32 


20-27 


22-5 


32-22 


32-27 


33-17 


33--42 


34-26 


35-22 


39-49 


39-52 


39-59 




41-27 


45-55 


47-29 


47-32 


47-35 


47-38 


48-41 


49-15 


50-16 


51-16 


52-54 


53-15 




54-16 


55-16 


57-12 


57-15 


57-21 


57-27 


57-35 


57-43 


57-44 


57-63 


58-6 


58-17 




58-18 


58-36 


60-10 


60-19 


60-26 


60-27 


60-32 


60-36 


61-12 


61-13 


61-17 


63-31 




63-34 


64-25 


65-16 




















. TTYIN 


1-1 7# 


31-19 






















. TTYOU 


1~17# 


10-32 


20-27 


22-5 


32-22 


32-27 


33-17 


33-42 


34-26 


35-22 


39-49 


39-52 




39-59 


41-27 


45-55 


47-29 


47-32 


47-35 


47-38 


48-41 


49-15 


50-16 


51-16 


52-54 




53-15 


54-16 


55-16 


57-12 


57-15 


57-21 


57 -27 


57-35 


57-43 


57-44 


57-63 


58-6 




58-17 


58-18 


58-36 


60-18 


60-19 


60-26 


60-27 


60-32 


60-36 


61-12 


61-13 


61-17 




63-31 


63-34 


64-25 


65-16 


















ERR 


l-44# 


9-43 


14-21 


14-34 


15-11 


18-34 


29-51 


29-74 


30-80 








INSTR 


66~20# 


66-51 


66-52 


66-53 


66-54 


66-55 


66-56 


66-57 


66-58 


66-59 


66-60 


66-61 




66-62 


66-63 


66-64 


66-65 


66-66 


66-67 


66-68 


66-69 


66-70 


66-71 


66-72 


66-73 




66-74 


66-75 


66-76 


66-77 


66-78 


66-79 


66-80 


66-81 


66-82 


66-83 


66-84 


66-85 




66-86 


66-87 


66-88 


66-89 


66-90 


66-91 


66-92 


66-93 


66-94 


66-95 


66-96 


66-97 




66-98 


66-99 


66-100 


66-101 


66-102 


66-103 


66-104 


66-105 


66-106 


66-107 


66-100 


66-109 




66-110 


66-'- 111 


66-112 


66-113 


66-114 


66-115 


66-116 


66-117 


66-118 


66-119 


66-120 


66-121 




66-122 


66-123 


66-124 


66-125 


66-126 


66-127 


66-128 


66-129 


66-130 


66-131 


66-132 


66-133 




66-134 


66-135 


66-136 


66-137 


66-138 


66-139 


66-140 


66-141 


66-142 


66-143 


66-144 


66-145 




66-146 


66-147 


66-148 


66-149 


66-150 


66-151 


66-152 


66-153 


66-154 


66-155 


66-156 


66-157 




66-158 


66-159 


66-160 


66-161 


66-162 


66-163 


66-164 


66-165 










OCALL 


1 - 39# 


43-23 


43-30 


43-32 


















PRINT 


l-"56# 


5-34 


5-36 


9-9 


10-14 


10-28 


1 0- -34 


12-19 


12-25 


13-17 


13-20 


13-31 




14-28 


14-42 


14-45 


14-53 


18-5 


18-8 


20-29 


20-34 


21-16 


21-21 


22-24 


22-29 




27-13 


27-16 


27-19 


27-34 


27-46 


27-49 


27-57 


45-24 










TPRINT 


1 -49# 


5-31 


5-39 


9-5 


12-9 


16-8 


16-19 


17-65 


20-32 


21-14 


21-19 


22-22 




22-27 


23-25 


27-7 


27-28 


27-41 


27-56 


27-68 


35-6 


35-7 








TYPDEF 


66"171# 


66-179 


66-180 


66-181 


66-182 


66-183 


66-184 


66-185 


66-186 


66-187 


66-188 


66-189 




66-190 


66-191 


66-192 


66-193 


66-194 

















( 



